财务软件版1楼: 我找了一个操作zip压缩包的VCLZip控件,是挺好,但有一点,我不知道如何得到压缩包中某文件的大小,就象用winzip打开一个zip压缩包的时候,我们可以看到一个文件列表,文件列表里包含文件名、文件大小、压缩大小（注：压缩后大小）等。现在我可以取到文件名和文件路径，但不知道从哪里取其文件大小，最好还有压缩大小等，请各位大侠赐教...

2楼: 里面没有相应的函数吗？》
你把控件发过来 我看看
fisheryj@gmail.com 如会计电算化软件

3楼: to:fisheryj
控件包发到你邮箱里了,麻烦你帮我看看...非常感谢你这么热情的帮助....

4楼: 操作系统: Windows
编程工具: Delphi7
问题: 请问如何使用Delphi取得一个文件的大小。

Delphi自身提供了FileSize函数，例如：
var
f: file of Byte;
size : Longint;
begin
AssignFile(f, ＇＇f:＼t.exe＇＇);
Reset(f);
size := FileSize(f);
edit1.text := IntToStr(size);
CloseFile(f);
end;

也可以使用下面的方法：

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

5楼: 汗,吐血,楼上的兄弟初忠是好的,但没把我的主题看清楚...如果单取硬盘文件大小还能等得到你,分早就让人赚走了.昨天问到现在,才两个回复,一看就知道这个问题有难度.

6楼: Format(＇＇%8d＇＇, [VCLUnZip1.UnCompressedSize[i]]);
给分.谢谢.

财务软件版7楼: czwczy好强啊...太感谢你了....嘿,你教我的是一个方法,我照些方法可以得到很多我想要的,谢了.分给你.