Stringtable mit StringID statt IntegerID möglich?

[Ares]

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:

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:

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