Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

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

AW: Zeichenkette durch Umlaut ersetzen

  Alt 3. Aug 2018, 12: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
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

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