那位大虾知道如何得到文本文件的大小？(50分)

酸

酸橙子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-31

• #1

我现在可以得到文件名filename,但是不知道如何得到此文件的长度。用filesize()说
文件类型不匹配。

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-31

• #2

function GetFileSize(const FileName: string): LongInt;
var
SearchRec: TSearchRec;
begin
try
if FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec) = 0 then
Result := SearchRec.Size
else Result := -1;
finally
SysUtils.FindClose(SearchRec);
end;
end;

 

G

gong666

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-31

• #3

GetFileVersionInfo可以得到文件的所有信息
你在帮助中查一下如何调用即可

 

酸

酸橙子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-31

• #4

谢谢，用上面的函数就搞定了。

 

Y

yfdciom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-31

• #5

最好的办法：
F:=TFileStream.create(filename,fmOpenRead);
ShowMessage(IntToStr(F.size));
这样无论什么文件都可以查看大小；
当然还有其他方法。