Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.063 Beiträge
 
Delphi 12 Athens
 
#3

AW: Zeichenkette durch Umlaut ersetzen

  Alt 3. Aug 2018, 13:10
Beispielprogramm: Das wäre dann vermutlich ANSI und nicht auf einem deutschen Windows kompiliert.
Also grundsätzlich funktioniert dieser Code, außer der Stringinhalt wird irgendwo durch eine Codepage gejagt, welche keine deutschen Umlaute kennt.



Abgesehn von dem grundsätzlichen Problem, welches erstmal gelöst werden muß.

Was passiert, wenn du auch ein ü bauchst und dann das ö, Ö, &, á oder 湜?
Ich hätte gedacht, dass z.B. in den Indy irgenwo eine Decodier-Funktion für sowas versteckt wäre, die man hätte nutzten können (fand auf die Schnelle nichts),
aber notfalls ginge auch sowas
Delphi-Quellcode:
Result := TRegEx.Replace(Result, '\\u[0-9a-f]{4}', MyReplace);

function TXxxx.MyReplace(const Match: TMatch): string;
begin
  Result := Char(StrToInt('$' + Copy(Match.Value, 3)));
end;
Delphi-Referenz durchsuchenRegularExpressions
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.

Geändert von himitsu ( 3. Aug 2018 um 13:13 Uhr)
  Mit Zitat antworten Zitat