请教怎么用流读写时间

请问如何用流读写时间?
写:

Delphi(Pascal) code

var  MS:TMemoryStream;begin  MS:=TMemoryStream.create;  MS.WriteBuffer(NOW,SizeOf(TDatetime));  MS.SaveToFile('c:\bbaa.dat');  MS.free;end;

读的代码应该如何完成呢?

Delphi(Pascal) code

var  MS:TMemoryStream;  MyTime:tdatetime;begin  MS:=TMemoryStream.create;  MS.LoadFromFile('c:\bbaa.dat');  MS.Position:=0;  MemStream.ReadBuffer(MyTime,SizeOf(MyTime));  DateTimePicker1.DateTime:= MyTime;//此处报错(Invalid floating point operation) 得到的值为 3.4942681613e+77  MS.free;end;

[解决办法]
试试这个:
var
MS:TMemoryStream;
MyTime:tdatetime;
begin
MS:=TMemoryStream.create;
MyTime := Now;
MS.WriteBuffer(MyTime,SizeOf(TDatetime));
MS.Position := 0;
MS.SaveToFile('c:\bbaa.dat');
MS.free;
end;

查看更多 下一篇