Einzelnen Beitrag anzeigen

Eichhoernchen

Registriert seit: 22. Apr 2004
Ort: Hagen
322 Beiträge
 
Turbo Delphi für Win32
 
#5

Re: Delphi Strings auf Englisch umstellen

  Alt 25. Jul 2005, 00:57
Achsoo, dass meinst du, dann hab ich die Frage falsch verstanden!!

Hmm, ich weiß jetzt nicht ob das die schönste Methode ist aber ich würde Ini-Dateien anlegen eine mit den deutschen Texten und eine mit den englischen! Und je nach dem was der Benutzer für ne Sprache wählt lädst du diese Ini-Datei und ließt dann für die einzelnen Captions jeweils einen Wert aus!

Bsp.:

english.ini:

Code:

[Form1]
Caption3=Please enter something here:

[Dlg1]
Button1=Close

deutsch.ini:

Code:
[Form1]
Caption3=Bitte geben Sie irgendwas ein:

[Dlg1]
Button1=Schließen

Und im Programm fragste dann ab:

Delphi-Quellcode:
uses IniFiles;




procedure TForm1.create...
var lang : integer;
    ini :TIniFile;
Begin
 //Abfrage der Sprache
 case lang of
  1: ini := Tinifile.Create(ExtractFilePath(ParamStr(0))+'Languages\deutsch.ini');
  2: ini := Tinifile.Create(ExtractFilePath(ParamStr(0))+'Languages\english.ini');
 end;
 Form1.caption3.caption := ini.readstring('Form1', Caption3, '');
 //..den Rest noch machen
 ini.free;
end;
Jan
  Mit Zitat antworten Zitat