怎么用程序统计文本文件的字节数啊？

Question

怎么用程序统计文本文件的字节数啊？

Answer 1

这是方法中的一种：type
  TRB = record
    B : Char;
    end;procedure TForm1.Button1Click(Sender: TObject);
var
  F : file of TRB;
begin
  AssignFile(F, 'c:\test.txt');
  Reset(F);
  showmessage('长度：'+ IntToStr(FileSize(F)));
  CloseFile(F);
end;注意，回车换行符是两个字符(#13#10)，也计算在内的。

Answer 2

哦，直接按下面这样吧，不用上面那个TRB记录类型了procedure TForm1.Button1Click(Sender: TObject);
var
  F : file of Char;
begin
  AssignFile(F, 'c:\test.txt');
  Reset(F);
  showmessage('长度：'+ IntToStr(FileSize(F)));
  CloseFile(F);
end;