怎么求得文件的大小？

Question

怎么求得文件的大小？

Answer 1

很多方法其中一种（主要写起来不麻烦：））
var
  Stream: TFileStream;
begin
  Stream: = TFileStream.Create(yourfilename);
  yoursize ;= Stream.Size;
  Stream.Free;

Answer 2

很多方法其中一种（主要写起来不麻烦：））
var
  Stream: TFileStream;
begin
  Stream: = TFileStream.Create(yourfilename, fmOpenRead);
  yoursize ;= Stream.Size;
  Stream.Free;

Answer 3

filehandle := fileopen(filename,fmopenread) ;
filesize := getfilesize(filehandle,nil)
fileClose(filehandle) ;