记录类型的问题 ( 积分: 100 )

请问高手 如何将一个记录类型写入二进制文件 并且如何读取和写入??

没有人回复吗??我以前用过 可是时间太长忘记了 呵呵

type
TMyRecord = packed record
A: Integer;
B: Boolean;
C: TDateTime;
end;

var
R: TMyRecord;
beign
R.A := 376645;
R.B := True;
R.C := Now;
AFileStream.Write(R, SizeOf(R));
end;

var
R: TMyRecord;
begin
AFileStream.Read(R, SizeOf(R));
ShowMessage(Format('A=%I, B=%S, C=%S', [R.A, BooleanToStr(R.B), DateTimeToStr(A.C)]));
end;

上面这些代码我试了一下 为什么读出的数据是错误的 能不能请高手给个完整的代码 谢谢

......
无语了