Registriert seit: 3. Aug 2018
1 Beiträge
|
Zeichenkette durch Umlaut ersetzen
3. Aug 2018, 10:43
Hallo zusammen,
ich möchte einen Text aus einer INI-Datei auslesen und diesen in ein TEdit-Feld schreiben. Zusätzlich soll vorher in dem Text die Zeichenfolge "\u00e4" durch ein "ä" ersetzt werden. In dem Textfeld wird dann aber statt des "ä" ein "?" angezeigt.
Delphi-Quellcode:
//------------------------------------------------------------------------------------------------------------------------------------------------------------
function GetIniStr( iniFilename, iniSect, IniEntry, iniDefault : string ) : string;
//------------------------------------------------------------------------------------------------------------------------------------------------------------
var inifile : TMemIniFile;
begin
result := inidefault;
inifile := TMemIniFile.create( iniFilename );
try
result := inifile.ReadString( iniSect, IniEntry, iniDefault );
result := StringReplace(result, '\u00e4', 'ä', [rfReplaceAll]);
finally
inifile.Free;
end;
end;
txtSuchdatum.Text := GetIniStr('config.ini', 'Testsection', 'TestEntry', '');
|
|
Zitat
|