Konstanten/Variablen suchen und Werte ändern

[Sidorion]

probier doch folgendes:
Statt:

Delphi-Quellcode:

  const
   Text1='bla';
   Text2='sülz';
   ...

Konstanten im sinne von ID deklarieren:

Delphi-Quellcode:

  const
   Text1= 1;
   Text2= 2;

dann kannst Du Dir eine Funktion schreiben, die mittels Text ID und eingestellter Sprache den eigentlichen String irgendwoher liest (inifile, Datenbank, csv, etc.) und zurückgibt.
z.b.:

Delphi-Quellcode:

function GetText(_iTextID: Integer): String;
Var
  sActualLabguage: String;
Begin
  sActualLanguage:=oIniFile.ReadString('Language','currentLanguage','Illegal Language');
  If sActualLanguage='Illegal Language'
  Then Result:=sActualLanguage
  Else Result:=oIniFile.ReaadString(sActualLanguage, IntToStr(_iTextID),'Text not defined');
End;