Size

Jeg kender to måder at finde fil-størrelsen på (der er sikkert flere):

function GetFileSize1(FileName: String): Integer;
var
  F: File;
begin
  AssignFile(F, FileName);
  FileMode := 2;
  Reset(F, 1);
  Result := FileSize(F);
  CloseFile(F);
end;

function GetFileSize2(FileName: String): Integer;
var
SearchRec: TSearchRec;
begin
  if FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec) = 0 then
    Result := SearchRec.Size
  else
    Result := -1;
  Sysutils.FindClose(SearchRec);
end;