TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
s: string;
public
{ Public declarations }
end;
///////////////////////////
type
TMyRecord = record
I: Integer;
end;
var
r: TMyRecord;
begin
r.I := 3;
SetLength(S, SizeOf(TMyRecord));
Move(r, s[1], SizeOf(TMyRecord));
ShowMessage(S);
end;
