Hier ein Beispiel
Delphi-Quellcode:
function ReadValue(const AIniFile: TMemIniFile; const Section, Ident: string): string;
begin
Result := UTF8ToWideString(AIniFile.ReadString(Section, Ident, ''));
end;
LIni := TMemIniFile.Create(LanguageFile);
try
String123456 := ReadValue(LIni, 'section', 'ident');
finally
LIni.Free;
end;
Ich jage alles durch ReadValue, um doppelten Code zu vermeiden. UTF8ToWideString steht da, da sonst Umlaute nicht richtig angezeigt werden.