天
天真
Unregistered / Unconfirmed
GUEST, unregistred user!
var testlist:tstringlist;
filetest:tfilestream;
begin
testlist:=tstringlist.Create ;
filetest:=tfilestream.Create('d:/codecoflat.01010041', fmOpenRead or fmShareDenyNone);
testlist.LoadFromStream(filetest);
filetest.Free ;
showmessage(inttostr(testlist.Count));
testlist.Free;
end;
这段程度有什么错?为什么我一打开就出错!
filetest:tfilestream;
begin
testlist:=tstringlist.Create ;
filetest:=tfilestream.Create('d:/codecoflat.01010041', fmOpenRead or fmShareDenyNone);
testlist.LoadFromStream(filetest);
filetest.Free ;
showmessage(inttostr(testlist.Count));
testlist.Free;
end;
这段程度有什么错?为什么我一打开就出错!