Arbeiten mit PChar

[Muetze1]

Moin!

Die Funktion kann im Worst-Case Fall doppelt so lange Zeichenketten zurück geben, also:

Delphi-Quellcode:

procedure test(Const ASrcString: String);
var DestString: string;
begin
  SetLength(DestString, 2*Length(ASrcString));
  Translate(PChar(ASrcString), PChar(DestString), false);
  // Hier noch mit SetLength() den DestString auf die zurück gegebene Anzahl von zeichen kürzen...
end;

MfG
Muetze1