[BrainIce]

Сообщение от Aristarh Dark

Вообще-то я имел в виду немного другое:

Код:

Type
  TData = packed record
    f1:string[5];
    f2:integer;
    f3:boolean;
  end;
var
  arrdata:array of byte;
  vardata:TData;
begin
  vardata.f1:='12345';
  vardata.f2:=65536;
  vardata.f3:=True;
  SetLength(arrdata,SizeOf(TData));
  Move(vardata,arrdata[low(arrdata)],SizeOf(TData));
end;

Большое спасибо это именно то, что мне нужно теперь земляне могут спать спокойно