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);