请问：记录转换为流数据的问题

Question

不行的啊，请各位指点。
我的问题代码如下，该记录发送方和接收方定义都相同，如下：Type  TestRecord = record
    name : string;
    age : integer
  end;var
  tRecord : TestRecord;发送方：
var
  t : TMemoryStream;
begin
  tRecord.name := '风再起时';
  tRecord.age := 26;  t := TMemoryStream.Create;
  t.Read(tRecord,sizeof(tRecord));　　　//好象就是这个地方有问题  NMStrm1.Host := Edit1.Text;
  NMStrm1.FromName := Edit2.Text;  try
    NMStrm1.PostIt(t);
  finally
    t.Free;
  end;接收方：var
  MyFStream: TFileStream;
  t : tMemoryStream;
begin
  ShowMessage('data translating...');
  t := TMemoryStream.Create;
  t.LoadFromStream(strm);
  t.Write(tRecord,sizeof(tRecord));
  ShowMessage(tRecord.name);　　　　　　　　//没有数据显示，没收到
  t.free;

Answer 1

;
      t.Read(tRecord,sizeof(tRecord));　　　//好象就是这个地方有问题
改成
t.Read(tRecord.name,sizeof(tRecord.name));　　　
t.Read(tRecord.age,sizeof(tRecord.age));　　　
在write时也这样，很复杂。-------------------------------
        水晶控件
提供图形图象控件。Delphi论坛。
http://www.codeidea.com
-------------------------------