Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
?
Solved

I need a clue for a good component to work with languages

Posted on 2006-07-24
6
Medium Priority
?
197 Views
Last Modified: 2012-05-05
Hello guys,

I am developing a program and it will be translated for 3 languages, portuguese - english and spanish, I would like to know if there is a good component to work with.

One that allows me to change the language in run time.
Thanks very much
0
Comment
Question by:hidrau
  • 3
  • 2
6 Comments
 
LVL 28

Expert Comment

by:2266180
ID: 17166881
why not use the languages support provided by delphi?
0
 
LVL 28

Accepted Solution

by:
2266180 earned 1200 total points
ID: 17166902
0
 
LVL 1

Author Comment

by:hidrau
ID: 17166905
If I understood correctly, I only use it to compile my project in the language that I want. It didn't allow to exchange the language in run time.
0
Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

 
LVL 28

Expert Comment

by:2266180
ID: 17166911
the paq I gave you should clear that issue :)
0
 
LVL 12

Assisted Solution

by:Ivanov_G
Ivanov_G earned 800 total points
ID: 17169923
According to me, you should make the translation by yourself. It is easy and you can customize it very well.

1) First of all, you can use Unicode controls (like TNT controls). If later you have to translate to Chinese for e.g. you will be ready.
2) Create TBaseForm, which is inherited by all other forms. Make a Translate method for it.
3) You translate method can use XML for captions. Example:

<language>
  <form name="Form1">
    <Label1>Your caption here:</Label1>
    <Edit1>Edit text here</Edit1>
  </form>
</language>

4) Your translate method should do something like this:

  for i:=0 to Self.ComponentCount -1 do
   begin
     if (Self.Components[i] is TLabel) then
       begin
         (Self.Components[i] as TLabel).Caption = 'YOUR_PARSED_VALUE_FROM_XML';
         // you can set hint also
       end;
     if (Self.Components[i] is TEdit) then
       begin
         (Self.Components[i] as TEdit).Text= 'YOUR_PARSED_VALUE_FROM_XML';
         // you can set hint also
       end;
   end;

For XML parsing you can use TXMLDocument.

Hope this helps.
0
 
LVL 1

Author Comment

by:hidrau
ID: 17286791
Thanks guys
0

Featured Post

[Webinar On Demand] Database Backup and Recovery

Does your company store data on premises, off site, in the cloud, or a combination of these? If you answered “yes”, you need a data backup recovery plan that fits each and every platform. Watch now as as Percona teaches us how to build agile data backup recovery plan.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article explains how to create forms/units independent of other forms/units object names in a delphi project. Have you ever created a form for user input in a Delphi project and then had the need to have that same form in a other Delphi proj…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
Exchange organizations may use the Journaling Agent of the Transport Service to archive messages going through Exchange. However, if the Transport Service is integrated with some email content management application (such as an anti-spam), the admin…
Is your OST file inaccessible, Need to transfer OST file from one computer to another? Want to convert OST file to PST? If the answer to any of the above question is yes, then look no further. With the help of Stellar OST to PST Converter, you can e…
Suggested Courses
Course of the Month14 days, 22 hours left to enroll

577 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question