请问一个filesize的问题~~Delphi(Pascal) codeprocedure TForm1.btn1Click(Sender: TObject)varf: fileb
请问一个filesize的问题~~
- Delphi(Pascal) code
procedure TForm1.btn1Click(Sender: TObject);var f: file;begin AssignFile(f,'123.txt'); Reset(f); ShowMessage(IntToStr(FileSize(f)));end;
123.txt里面的内容
1
2
3
4
5
为什么运行时是0？
[解决办法]
Reset(f,1);