关于Record写入流后再读出的问题?(100分)

易名烦 · 2004-05-15

for i := 0 to mHis.Enumerate - 1 do
begin
mHisRec := mHis.Items;
mRec.Title := mHisRec.Title;
mRec.Url := mHisRec.Url;
mRec.SaveTime := mHisRec.Lastvisited;
mStream.Write(mRec, SizeOf(mRec));
end;
mHis.ClearList;
ss := TStringList.Create;
// mStream.Position := SizeOf(CMD_SAVe);
mStream.Position := 0;
while mStream.Position < mStream.Size do //这个循环几次后报地址错
begin
i := SizeOf(mRec);
mStream.Read(mRec, SizeOf(mRec))
//这里报错
ss.Add(mRec.Title + '&*&' + mRec.Url);
end;
ss.SaveToFile('d:/aa.txt');

Kisber · 2004-05-15

while mStream.Position [red]<=[/red] mStream.Size do

Codemoocow · 2004-05-15

while mStream.Position < mStream.Size - 1 do

易名烦 · 2004-05-15

楼上两位,好象不是越界的问题.

tseug · 2004-05-15

你定义的Record里面有String类型吧

易名烦 · 2004-05-15

对,是widestring,我也想可能是这个问题.
喝高师兄请指教.

TUrlRec = record
Title: WideString;
Url: WideString;
SaveTime: TDateTime;
end;

tseug · 2004-05-16

这样的记录不能够用你的方法来写入文件, 如果要把这条记录保存下来, 只能一个
域一个域写入, 你可以这样写
1 写入Length(Title), 占用SizeOf(Integer)字节
2 写入Title的内容, 占用Length(Title)字节
3 写入Length(Url), 占用SizeOf(Integer)字节
4 写入Url的内容, 占用Length(Url)字节
5 写入SaveTime, 占用SizeOf(TDateTime)字节

读取的时候, 也是这样先读长度, 再读内容
1 读取SizeOf(Integer)字节, 作为Title的长度值
2 根据读入的数值用SetLength给Title分配空间
3 读取Title内容
......

易名烦 · 2004-05-16

喝高:
我现在已经可写string,但widestring还是有问题.

tseug · 2004-05-16

WideChar 是一个Word, 所以你用Length获取的WideString的长度应该乘2才是
Byte的长度胡

Highpeak · 2004-05-17

问题出在sizeof(TUrlRec)上，把你的结构改一下就可以了。
TUrlRec = record
Title: String[40]
//加上长度限制，取最大值。
Url: String[60];//同上。
SaveTime: TDateTime;//是DOUBLE类型，8个字节。
end;

易名烦 · 2004-06-06

接受答案了.

关于Record写入流后再读出的问题?(100分)

易名烦

Unregistered / Unconfirmed

Kisber

Unregistered / Unconfirmed

Codemoocow

Unregistered / Unconfirmed

易名烦

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

易名烦

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

易名烦

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

Highpeak

Unregistered / Unconfirmed

易名烦

Unregistered / Unconfirmed

Similar threads