Hallo!

Ich würde gerne eine Stringtable verwenden um mein Programm in verschiedenen Sprachen zu compilieren. Ich erstelle also z.B. eine Tabelle in Deutsch und eine Englisch und je nachdem in welcher Sprache das Programm kompiliert werden soll binde ich die eine oder die andere Datei in das Programm ein.

Eine "normale" Stringtable sieht ja so aus:

zusammenfalten · markieren

Delphi-Quellcode:

STRINGTABLE
BEGIN
  1, "Weiter"
  2, "Zurück"
  3, "Abbrechen"
END


// Funktion zum auslesen der Strings
function GetString(ID: Integer): string;
var
  p: PChar;
begin
  p := StrAlloc(256);
  try
  if LoadString(hInstance, ID, p, 255) <> 0 then
    Result := p
  else
    Result := '';
  finally
    StrDispose(p);
  end;
end;

// String zuweisen
Button.Caption := GetString(2);

Nun würden die Tabellen aber sehr viele Strings enhalten und die Verwendung der Integer-IDs im Programm könnte recht unübersichtlich sein. Wenn ich z.B. Button.Caption := GetString(4782); verwende weiß ich in 2 Tagen nicht mehr, ob 4782 wirklich die korrekte ID ist und ich muss in der Tabelle nachsehen. Es wäre praktischer, wenn man die Werte mit einer String-ID statt einer Integer-ID aufrufen könnte:

markieren

Delphi-Quellcode:

STRINGTABLE
BEGIN
  str_next, "Weiter"
  str_back, "Zurück"
  str_cancel, "Abbrechen"
END

// String zuweisen
Button.Caption := GetString('str_cancel');

Die Funktion LoadString() arbeitet jedoch nur mit Integer-IDs und ich habe keine Funktion gefunden die String-IDs akzeptiert. Außerdem kann lässt sich die Stringtable mit String-IDs nicht kompilieren. Ist es also irgendwie möglich String-IDs zu verwenden? Gibt es hierfür eine alternative zur normalen Stringtable?

Besten Dank
Ares

Wie wäre es mit:

markieren

Delphi-Quellcode:

const
  str_next_ID = 1;
  str_back_ID = 2;
  str_cancel_ID = 3;

und dann später:

markieren

Delphi-Quellcode:

// String zuweisen
Button.Caption := GetString(str_back_ID);

Es wäre zwar etwas aufwändig, aber eine Lösung:
Konstanten für die IDs anlegen.

markieren

Delphi-Quellcode:

const
  _StrNext = 1;
  _StrPref = 2;
  _StrNo = 3;
  ...

... zu spät

Zitat von Progman:

... zu spät

Wieder kein "roter Kasten"?

Ok, das ist natürlich eine Möglichkeit. Aber wie du schon sagst recht aufwändig. Wenn es keine andere Möglichkeit gibt, werde ich das wohl so machen. Aber vielleicht kennt ja jemand noch eine elegantere Lösung?

doch, aber nicht für voll genommen

Zitat von Ares:

Ok, das ist natürlich eine Möglichkeit. Aber wie du schon sagst recht aufwändig. Wenn es keine andere Möglichkeit gibt, werde ich das wohl so machen. Aber vielleicht kennt ja jemand noch eine elegantere Lösung?

Das es ja scheinbar um Lokalisierung einer Anwendung in verschiedene Sprachen geht:

GnuGetText für Delphi

Dann musst du dich überhaupt nicht mehr um IDs, seien es Strings oder Integer, kümmern.