紧急求助！(50分)

J

jog81

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-02

• #1

我在我的软件中使用了取得文件大小的功能，同时对它进行其它操作
原先在2000中还好好，为什么到了98就不能用了呢？
有什么办法可以解决吗？
我试过用bstop:boolean;来打断，但是没成功
想得头都大啦！
请各位帮帮忙啦！

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-02

• #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;

 

太

太阳火

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-03

• #3

取得文件大小
FileSizeByName(path:string):integer;
要使用IDGlobal单元

 

Y

yanyandt2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-03

• #4

好
又学了一招

 

J

jog81

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-04

• #5

谢谢，我已经搞定了！