String zu array of char

[Luckie]

Nimm die Windows API Funktion lstrcpy:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
  buffer: array [0..3] of Char;
begin
  s := 'abc';
  lstrcpy(buffer, PChar(s));
  ShowMessage(String(buffer));
end;

Aber wichtig: Der Buffer muss um eins größer sein.