zhucp的专栏

原创 文件操作delphi代码

function GetFileSize(const AFileName:string):Integer;var   f: file of Byte;begin    AssignFile(f, AFileName);    Reset(f);    try      try        Result := FileSize(f);      except        Result := -1