C
codepet
Unregistered / Unconfirmed
GUEST, unregistred user!
我写了2个函数一个是写文件,一个是读文件.
当我先写文件然后紧接着读文件,这时读出来的内容是正确的,
但是如果我只读文件,这时读出来的内容是错误的,为什么?
请大虾们帮我看看[
]
当我先写文件然后紧接着读文件,这时读出来的内容是正确的,
但是如果我只读文件,这时读出来的内容是错误的,为什么?
请大虾们帮我看看[
]
代码:
procedure TForm2.SavePlayList;
var i:integer;
f:TFileStream;
begin
f := TFileStream.Create(FILENAME, fmCreate);
try
f.Seek(0, soFromBeginning);
for i:=1 to 10 do
begin
f.Write(data[i], sizeof(TData));
end;
finally
f.Free;
end;
end;
procedure TForm2.ReadPlayList;
var f:TFileStream;
i:integer;
numread:integer;
begin
f := TFileStream.Create(FILENAME, fmOpenRead);
i:=0;
try
while True do
begin
numread := f.Read(data[i+1], sizeof(TData));
if numread < sizeof(TData) then break;
inc(i);
end;
finally
f.Free;
end;
end;