1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var X:record
     x:Byte;
     y:array [1..5] of Char;
     z:array of Char;
    end;
    Buf:string;
begin
 X.X:=65;
 X.Y:='12345';
 SetLength(X.Z,1);
 X.Z:='6';

 Buf:=string( X ); // Das geht nicht!					

1:
2:
3:
4:
5:
6:
7:
8:
9:

function Rec2Str(Rec:TMyRec):String;
var i:integer;
buf: array[0..SizeOf(Rec)] of char;
begin
  for i:=low(buf) to High(Buf) do
    buf[i]:=#0;
  Move(Rec,Buf,SizeOF(Rec));
  Result:=Buf;
end;