Forum: Sonstige Fragen zu Delphi
by samso,
30. Jun 2017
Leider habe ich erst jetzt die ultimative Funktion gefunden mit der man das realisieren kann... :oops:
function StringToSteuerZeichen(const s: String): String;
begin
Result := Char.ConvertFromUtf32(StrToInt(copy(s, 2, MaxInt)));
end;
Forum: Sonstige Fragen zu Delphi
by samso,
29. Jun 2017
@Fritzew: Zu UCS4StringToUnicodeString:
Ja, so wie Du es schreibst würde ich das auch logischer finden. Du musst bei Dir noch die maximal Anzahl der Character vergößern.
SetLength(Tmp, Length(S) * 2); //Maximum possible number of characters
Forum: Sonstige Fragen zu Delphi
by samso,
29. Jun 2017
Wenn man lieber UCS4StringToUnicodeString benutzen möchte, dann geht das so:
function StringToSteuerZeichen(const s: String): String;
var
c: Cardinal;
t: UCS4String;
begin
c := StrToInt(copy(s, 2, MaxInt));
SetLength(t, 2);
Forum: Sonstige Fragen zu Delphi
by samso,
29. Jun 2017
Warum nicht? Genau so wie nahpets es schreibt, hätte ich gedacht funktioniert es.
Forum: Sonstige Fragen zu Delphi
by samso,
29. Jun 2017
Vielleicht so?
function StringToSteuerZeichen(const s: String): Char;
begin
Result := Char(StrToInt(copy(s, 2, MaxInt)));
end;