Umwandeln in andere Sprache

[Kleine_Anne]

Ich habe einen Text in ein Label geschrieben. Außerdem habe ich ein MainMenü und ein Popupmenü. Im MainMenü sowie auch im PopUpMenü steht "Englisch" (selber reingeschrieben).
Wenn ich nun darauf klicke, soll alles was vorher in Deutsch da stand auf Englisch kommen.
Wie kann ich das machen, ohne dass ich eine zweite Unit nehmen muss?? Geht das dann überhaupt??
Mfg Anne

[Laufi]

hallo

Das ist ganz einfach:

Delphi-Quellcode:

procedure TForm1.MenuItem1Click(Sender: TObject);
var
  I: Integer;
begin
  for I:= 0 to Pred(ControlCount) do
    TranslateToEnglish(Controls[I]);
end;

Die procedure TranslateToEnglish kannst du selber rasch implementieren :coder:

liebe grüsse

[Bernhard Geyer]

Oder die fertige Routine von GNU GetText verwenden :mrgreen:

[Kleine_Anne]

Und wie soll ich das mit dem implementieren machen?? Ich habe eigentlich keine Ahnung von der ganzen Materie...
Und downloaden geht nicht, weil wir in der Schule ja nichts downloaden bzw speichern können...

[Phoenix]

Anleitung lesen ;-)

Und wegen Download: Zuhause runterladen, auf nen USB Stick und gut ist ;-)