如何获取文件尺寸

Question

同题

Answer 1

F: TFileStream;F := TFileStream.Create('c:\a.txt', fmOpenRead);F.Size //文件大小

Answer 2

Create?必须要Create么？我已经有一个文件了，怎么得到已有文件尺寸？

Answer 3

var
  SearchRec: TSearchRec;
begin
    if FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec) = 0 then 
     Result := SearchRec.Size 
    else 
     Result := -1; 
end;

Answer 4

F: TFileStream;F := TFileStream.Create('c:\a.txt', fmOpenRead); //这儿的Create并不是创建一个文件，而是创建一个文件流对象，通过fmOpenRead参数表示是打开文件并可以读取文件，参数'c:\a.txt'表示是你要打开的文件，这儿的文件必须存在，否则会引起异常F.Size //文件大小