Konstanten mit GNU GetText übersetzen

[Hermann85]

Hallo,

Ich übersetze schon eine Weile erfolgreich mit GetText, bin allerdings jetzt auf ein Problem gestoßen, wo ich einfach nicht weiter komme: Wie kann man Konstanten übersetzen?

Hier ein kleines Beispiel:

Delphi-Quellcode:

procedure TuebersetzenForm.bt_uebersetzenClick(Sender: TObject);
const MyStringTable: array[0..2] of String = ('Erste Zeile',
                                            'Irgendwas',
                                            'Dritte Zeile');
var i:integer;
begin
  for i := 0 to Length(MyStringTable)-1 do
  begin
    ShowMessage(MyStringTable[i]);
  end;
end;

_() funktioniert schon mal nicht.

Ich hoffe mir kann einer helfen.

vg Hermann

[Touchdown]

Du machst doch gar nichts mit den Strings und Konstanten sehe ich auch nicht.

[Hermann85]

ich könnte jetzt z.b. die Strings in _() setzen:

Delphi-Quellcode:

procedure TuebersetzenForm.bt_uebersetzenClick(Sender: TObject);
const MyStringTable: array[0..2] of String = (_('Erste Zeile'),
                                            _('Irgendwas'),
                                            _('Dritte Zeile'));

aber wie ich schon geschrieben habe funktioniert das nicht, da 'const' davor steht.

[Sherlock]

Die Biester werden ja wohl hoffentlich mangels Nutzung wegoptimiert. Die dürften in Deinem Binary also gar nicht mehr vorhanden und folglich nicht für GetText zugreifbar sein.

Ausserdem sollte man schon das Kennwort ResourceString verwenden. Wenns denn Array sein müssen, kannst Du die ja mit Resourcestrings bestücken.

Delphi-Quellcode:

procedure TuebersetzenForm.bt_uebersetzenClick(Sender: TObject);
resourcestring rsErsteZeile = 'Erste Zeile';
rsIrgendwas = 'Irgendwas';
rsDritteZeile = 'Dritte Zeile';
const MyStringTable: array[0..2] of String = (rsErsteZeile,
                                            rsIrgendwas,
                                            rsDritteZeile);

Sherlock

[Hermann85]

danke, hat funktioniert