Форум по Delphi программированию - Показать сообщение отдельно - Подскажите! Как преобразовать определенный тип в array of byte

Aristarh Dark · #4 19.05.2009, 07:33

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

Код:

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;