Einzelnen Beitrag anzeigen

AWilhelm

Registriert seit: 3. Aug 2018
1 Beiträge
 
#1

Zeichenkette durch Umlaut ersetzen

  Alt 3. Aug 2018, 09: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', '');
  Mit Zitat antworten Zitat