怎样把一个Record型变量的内容转为TMemoryStream(或反之)?(100分)

Z

zyyzj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-10

• #1

如题

 

S

seaboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-10

• #2

type
dd = record
a: integer;
b: boolean;
end;
pp = ^dd;

var
kk: dd;

with kk do begin
a := 1;
b := true;
end;

memorystream.write(kk);

 

W

wlmmlw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-10

• #3

see the example

 

S

sweetgun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-10

• #4

stream:TStream;
r: YourRecord;

//write
stream.Write(r, sizeof(r));
//read
stream.read(r, sizeof(r));

 

Z

zyyzj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-11

• #5

问题已经解决。
非常感谢楼上几位的回答，虽然都不正确。