string zum array of char

[Nothine]

hab mal ein bissl rumprobiert, die entsprechung der memcopy funktion ist die funktion move, und denn entsprechenden code will ich euch natürlich auch nicht vorenthalten

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var S: string;
    A: array of Char;
begin
  S := 'blablabla';
  SetLength(A,Length(S));
  Move(PChar(S)^,A[0],Length(S));
  Form1.Caption := string(A);
end;

Edit: ich hab grad auch mal den zeittest gemacht, und eigentlich schneidet diese variante recht gut ab (im bsp. um 800 ms)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var S: string;
    A: array of Char;
    I: Integer;
    T: Int64;
begin
  S := 'blablablablablablablablablablablablablablablablablablabla';
  SetLength(A,Length(S));
  T := GetTickCount;
  for I := 1 to 10000000 do
    Move(PChar(S)^,A[0],Length(S));
  Form1.Caption := string(A)+' in '+IntToStr(GetTickCount-T)+' ms';
end;