GetFileSize 怎么用？

[chinayjlljy]

GetFileSize 怎么用？

[大地精灵]

楼上的，好象哪个函数不太好，还是用FileSizeByName()
就拿文本文件来说，FileSize返回的是文件大小整除128后的数，如果文件大小不是128的倍数，那么余数就没有了

[lxl]

不用API,用FILESIZE吧
procedure TForm1.BitBtn2Click(Sender: TObject);
var
FromF : file of byte;
FileLength : longint;
begin
AssignFile(FromF,'c:\a.bmp');
FileLength:=FileSize(FromF);
showmessage(inttostr(filelength));
end;