SetString für WideStrings

[jbg]

Zitat von halinchen:

Folgendes Funktioniert:

Delphi-Quellcode:

var
  Str : String;
begin
  SetString(Str,NIL,10);
  ShowMessage(Str);
end;

Im String steht 10x #0 drin.

Purer Zufall.

Delphi-Quellcode:

var
  Str: string;
  P: PByteArray;
  I: Integer;
begin
  GetMem(P, 18);
  for I := 0 to 17 do
    P[I] := I + 20;
  FreeMem(P);
  SetString(Str,NIL,10);
  ShowMessage(Str); // jetzt seht wohl nicht mehr #0#0... in Str
end;