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