这两个函数是不是错了,如何调用?

Question

请教各位,
这两个函数是不是写错了,另如何调用?为何我总是调不到?//检测主程序大小
Function GetMax():integer;
var
F: file of byte;
begin
   Filemode:=0;
   Assignfile(F,'Zican.exe');
   Reset(f);
   Result:=Filesize(F);
   Closefile(F);
end;//检测创建日期和时间
Function GetDate():String;
var
t:TDate;
begin
   ShortDateFormat:='yyyy-mm-dd';
   t:=FileDateToDateTime(FileAge('Zican.exe'));
   Result:=DateToStr(t);
end;

Answer 1

调用是这样
ShowMessage(IntToStr(GetMax));//文件大小
ShowMessage(GetDate);//修改时间。会出错可能是那个Zican.exe不存在

Answer 2

1，函数可能没有找到 ZICAN.exe文件
2，这2个函数不是全局函数，你如果要调用，需要吧调用函数放在这2个函数后面
3，或者重新申明上面2个函数