delphi中如何将record 类型的数据转换为 array of byte?
解决方案 »
- 发现一个新玩意儿
- 服务器端用TServerSocket怎么将一个用户的消息转发给另外一个用户?
- 哪位大侠看看,这样可以实现吗
- 问一个TDBChart的问题,关于Onmousewheel。
- 本命年是不是真的很郁闷?感觉好烦呀!人是为了什么?为什么感觉总在折腾?-感觉真的好烦!!!有同感的兄弟进!人为什么总在折腾自己呢?
- report builder 中怎样将程序中的string写进报表的text中去呀???
- clientdataset的Filter设置问题
- 怎么在屏幕的右下角显示/隐藏一个窗体?
- 请问如何在程序中进行拨号并且等持60秒后检测是否连接
- 关于Printer对象打印的问题
- 做一个登录界面控制WDINDOWS
- 數據備份
Tr = packed record
a,b: byte;
end;var r : Tr; P: Pbyte;
r.a := 100; r.b := 30;
P := @r;//即 P^ = r.a
type
TTestRecord=record
a: Integer;
b: Integer;//它里面成员必须是简单类型,或者record类型.
end;procedure TForm1.FormCreate(Sender: TObject);
var
test: TTestRecord;
barray: array of byte;
begin
test.a := 123;
test.b := 456; setlength(barray,sizeof(test));
move(test,pbyte(barray)^,length(barray));
i: Integer;
s: string[200];
end;procedure TForm2.Button1Click(Sender: TObject);
var
src: TTestRecord;
dest: Array of byte;
len: integer;
i: integer;
tmp: TTestRecord;
begin
src.i := 100;
src.s := 'dsgdfgfd';
//移入
len := sizeof(src);
setlength(dest, len);
move(src, dest[0], sizeof(src)); //移入目标;
//取出
move(dest[0], tmp, sizeof(tmp));
showmessage(tmp.s);
end;