Steuerzeichen-String umwandeln in "echtes" Steuerzeichen

[freimatz]

Nein.

[samso]

Zitat von freimatz:

Nein.

Warum nicht? Genau so wie nahpets es schreibt, hätte ich gedacht funktioniert es.

[samso]

Wenn man lieber UCS4StringToUnicodeString benutzen möchte, dann geht das so:

Delphi-Quellcode:

function StringToSteuerZeichen(const s: String): String;
var
  c: Cardinal;
  t: UCS4String;
begin
  c := StrToInt(copy(s, 2, MaxInt));
  SetLength(t, 2);
  t[0] := UCS4Char(c);
  t[1] := UCS4Char(0);
  Result := UCS4StringToUnicodeString(t);
end;

[freimatz]

Ah Sorry, dachte es ginge immer um "in ein echtes Steuerzeichen umwandeln".
Das "StringReplace(sText, ..., '', [rfReplaceAll, rfIgnoreCase]);" löscht aber
Also so könnte es funktionieren. Vermutlich ist es aber umständlich und langsam.

Ggf, macht es Sinn die Liste im Speicher zu halten.
Ggf, macht es auch Sinn auf die Liste zu verzichten und gleich ganze Unicode-Blöcke zu löschen. Oder alle Surrogaten, oder alle combined Chars ...

[bogdan]

Zitat:

Ggf, macht es Sinn die Liste im Speicher zu halten.

Ja, die Liste wird in ein globales Array gepackt und bei Bedarf verarbeitet.

Zitat:

Ggf, macht es auch Sinn auf die Liste zu verzichten und gleich ganze Unicode-Blöcke zu löschen. Oder alle Surrogaten, oder alle combined Chars ...

Daran hatte ich auch schon gedacht. Will aber zur Zeit den Prozess nicht unnötig aufblähen, deshalb ist eine kleine Liste mit Erweiterungspotenziall im Moment noch OK und mit Samson's Funktion tut es einwandfrei.

[samso]

Leider habe ich erst jetzt die ultimative Funktion gefunden mit der man das realisieren kann...

Delphi-Quellcode:

function StringToSteuerZeichen(const s: String): String;
begin
  Result := Char.ConvertFromUtf32(StrToInt(copy(s, 2, MaxInt)));
end;