Inhalt eines dynamischen Array in einen String kopieren

[p80286]

Ich hab's mal für mich umgesetzt, so klappt es:

Delphi-Quellcode:

var
  i : integer;
  a1: array of byte;
  s1: string;
begin
  setlength(s1,50);
  setlength(a1,50);
  for i:=0 to 49 do a1[i]:=$20+i;
  move(a1[0],s1[1],50);
  showmessage(s1);

Gruß
K-H