Mehrsprachiges Programm mit *ini

[Ashanita]

Zu allererst:

Ich hoffe etwas ähnliches wurde nicht schon früher gepostet, denn ich bin mit der Suchfunktion auf nichts gestoßen. Falls es ein ähnliches Tutorial schon geben sollte, dann verzeiht mir

Multilanguage Programm

by Whiteprince aka Ashaníta

Allgemeine Information

Zubereitungszeit: ca. 30-45 Minuten
Schwierigkeitsgrad: mittel
Freischaltung: 23. Dezember 08

Beschreibung

Das Programm soll mit mehreren Sprachen mit INI Konfiguration verfügbar sein, sprich wenn man als Einstellung ENGLISCH für das Programm wählt, wird das ganze Programm ins Englische übersetzt.

Screenshots & Demo Downloads

http://gpproductions.kilu.de/Multi-Language-TUT.bmp

Download usw.: SIEHE ANHANG!

Zutaten für 1 Programm:

1. Button | Name: Deutsch (Name NICHT Caption!)
   Button | Name: Englisch
   Label | Name: TestLabel1
   Label | Name: TestLabel2

Vorbereitung

Erstelle ein neues Projekt (VCL-Formularanwendung) und ziehe alle oben aufgelisteten Komponenten auf die Form. (Genau ausrichten kann man die Später )

Zubereitung

Zuallererst: was hat welche Komponente für eine Aufgabe?

Deutsch (Button) | Übersetzt ganzes Programm in Deutsch
Englisch (Button) | Übersetzt ganzes Programm in Englisch
TestLabel1 (Label) | Einfacher Text zum überprüfen ob Übersetzung funktoniert
TestLabel2 (Label) | Selbe wie TestLabel1

Zuerst fügen wir (ganz wichtig!)IniLang in die uses rein!

Jetzt doppelklicken wir (in der Form) auf den Deutsch-Button. Jetzt können wir mit Hilfe der procedure Funktion bestimmen was beim Button-Klick passiert. Wir geben an, dass beim Klick das Programm übersetzt wird:

Code:

CL:=loadIni(DE) // DE steht hier für Deutsch

Und jetzt, dass ALLE Labels bzw Button (oder was auch immer) Captions mit den englischen/deutschen Wörtern gefüllt wird:

Delphi-Quellcode:

if CL<>nil then
begin
fillProps([form1],CL); // Alles füllen

Das sieht dann jetzt so aus:

Delphi-Quellcode:

procedure TForm1.DeutschClick(Sender: TObject);
begin
CL:=loadIni(DE);
if CL<>nil then
fillProps([form1],CL);
end;

Damit wir das ganze jetzt auch in Englisch machen können, doppelklicken wir auf den Englisch-Button und geben folgenden Code ein:

Delphi-Quellcode:

procedure TForm1.EnglischClick(Sender: TObject);
begin
CL:=loadIni(EN); // Statt DE steht jetzt hier EN
if CL<>nil then
fillProps([form1],CL);
end;

Jetzt erstellen wir die Labels.

Und nun erstellen wir 2 Ini-Dateien, eine mit dem Namen "Englisch.ini" und eine mit dem Namen "German.ini" (die Dateien müssen so heißen).

Die Englisch.ini füllen wir folgendermaßen:

Delphi-Quellcode:

[Form1]
Form1.Caption=Gewünschter Text für die Form-Caption in Englisch
Form1.Englisch.Caption=Gewünschter Text für den Englisch-Button in Englisch
Form1.Deutsch.Caption=Gewünschter Text für den Deutsch-Button in Englisch
Form1.TestLabel1.Caption=Gewünschter Text für den TestLabel1 in Englisch
Form1.TestLabel2.Caption=Gewünschter Text für den TestLabel2 in Englisch

Und die German.ini genau gleich ABER auf Deutsch

Damit das Programm gleich beim starten übersetzt wird, doppelklicken wir in die Form (FormCreate Funktion) und geben folgendes ein:

Delphi-Quellcode:

CL:=loadIni(DE); // DE wenn ihr Deutsch laden wollt und EN wenn ihr Englisch laden wollt
if CL<>nil then
fillProps([form1],CL);

Das sieht dann so aus:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
CL:=loadIni(DE);
if CL<>nil then
fillProps([form1],CL);
end;

TEST

Jetzt Compilieren wir das ganze und starten das Programm (bitte geht sicher, dass German.ini und Englisch.ini im selben Ordner wie euer Programm ist) und klicken einmal auf den Englisch-Button bzw den Deutsch-Button und TADA es geht

[edit=Phoenix]Verlinkung auf Rapidshare entfernt. Wenn, dann bitte hier anhängen. Mfg, Phoenix[/edit]

[jaenicke]

Zitat von Muellermilchtrinker:

habs jetzt gecheckt wie man variablen überwacht.

Bei halbwegs aktuellen Delphiversionen genügt es die Maus drüber zu halten.

Ja, wenn das 0 ist, dann ist ja kein Wunder, dass es nicht weitergeht, denn dann wird das Objekt gar nicht geladen in der ersten Zeile. Warum musst du schauen.

[Muellermilchtrinker]

ok, danke für eure Mühe.
Ich werd mich jetzt in den nächsten Tagen auf Fehlersuche begeben.

[Muellermilchtrinker]

Habs jetzt geschafft. Habs einfach nach dem ich Form2.Show hatte dahinter geschrieben und es klappte.
Nun hab ich aber noch eine Frage.
Wie kann ich die Texte in ShowMessage übersetzten, da die noch auf Deutsch sind.

[Muellermilchtrinker]

*push*
Ich möchte nochmal fragen, ob jemand eine Möglichkeit weiß, wie man die ShowMessages übersetzten kann???

[drschubi]

Hallo,

vielen Dank für das Tutorial,

wie muss ich vorgehen, um auch Hints übersetzen zu können?
Wo genau muss ich in der iniLang ansetzen?.

Danke im voraus

René

[Muellermilchtrinker]

Weiß jemand wie man damit ShowMessages übersetzt??

[DeddyH]

Wenn ich den Source richtig überflogen habe: gar nicht (oder nur äußerst dirty). ShowMessage ist eine Prozedur und keine Komponente.

[Physikerin]

Guten Abend,

vielen Dank für das Tutorial auch von meiner Seite!
Ich versuche nun ChartSeries und Achsentitel umzunennen, aber das scheint nicht zu funktionieren.
Hat jemand einen Tipp?

Mein Code sieht so aus:
Form1.Chart1.Series[0].Title = Name Series 0
Form1.Chart1.BottomAxis.Title = x-Achse

Viele Grüße und danke für eure Hilfe!
Physikerin

[p80286]

Ich vermute Du meinst

Delphi-Quellcode:

Form1.Chart1.Series[0].Title := 'Name Series 0';
Form1.Chart1.BottomAxis.Title := 'x-Achse';

Gruß
K-H

[LTE5]

Ich denke das was sie meinte war schon richtig. Denn sie meinte keinen Delphi-Code sondern Ini-Text.

Was hier das Problem meiner Meinung nach ist, dass Ini-Idents vielleicht [ und ] nicht akzeptieren.