string in array of char kopieren

[himitsu]

ein String ist ja praktisch zusätzlich noch 0-terminiert

Delphi-Quellcode:

var
  s : string;
  sa: array[0..1023] of char;
begin
  s := ' beispieltext |';
  move(s[1], sa[0], length(s) + 1);
  showmessage(sa);
end;

und falls der String mal leer ist, dann solte man besser noch die Exception verhindern (welche übrigens auch in p80286's Code auftreten würde)

Delphi-Quellcode:

s := ' beispieltext |';
if s = '' then sa[0] := #0
else move(s[1], sa[0], length(s) + 1);
showmessage(sa);