|
Registriert seit: 18. Aug 2004
Ort: Edewecht
712 Beiträge
Delphi 5 Professional
|
Re: Daten reinpacken in Tbytes...
11. Mär 2005, 08:34
Delphi-Quellcode:
type
TMyRecord = packed record
...
end;
Delphi-Quellcode:
type
TBytes = array of Byte;
Delphi-Quellcode:
var
MyRec: TMyRecord;
MyArry: TBytes;
begin
SetLength(MyArry, SizeOf(TMyRecord));
Move(MyRec, MyArry[0], SizeOf(TMyRecord));
end;
Ciao, Sprint.
"I don't know what I am doing, but I am sure I am having fun!"
|