请教一个filesize的有关问题~

2012-02-05

请问一个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);

.NET