如何把record 定义的指针,把指针内的数值存储到内存数据流内? ( 积分: 50 )

type
TMydata=record
id:integer;
name:string[20];
end;
pMydata=^TMydata;
使用时候:
procedure SaveDatatoStream( memorystream:Tmemorystream);
begin
var
i,count:integer;
MydataMydata;
begin
for i=0 to 100 do begin
Mydata:=new(pMydata);
Mydata.id:=i;
Mydata.name:=intttostr(i);
//结构提的话可以写 WriteBuffer(Mydata, SizeOf(TMydata)); Mydata:TMydata ,没有错
//但使用指针的话,如何写
memorystream.wirtebuffer();//???????????????????这个地方该如何写
end;
end;
我说的是:使用指针不是结构体,把指针内容存储到数据流内

WriteBuffer(Mydata, SizeOf(pMydata);

WriteBuffer(Mydata^, SizeOf(TMydata));

好好看看指针的应用吧

哈哈哈哈，是写指针，不是数据！

iceapi说的对

iceapi说对了,年前,我没试,刚才验证是正确的,谢谢大家的参与