[Linux] Dateigröße ermitteln mit Lazarus

[Fridolin Walther]

Du kannst entweder die entsprechende Linux API verwenden (stat) dafür oder wenn es "plattformunabhängig" sein soll:

Delphi-Quellcode:

function GetFileSize(FileName : string) : Integer;
var
  f : file;
  OldFileMode : Integer;
begin
  OldFileMode := FileMode;
  FileMode := 0;
  AssignFile(f, FileName);
  Reset(f, 1);
  Result := FileSize(f);
  CloseFile(f);
  FileMode := OldFileMode;
end;

Alternative ohne die Datei wirklich zu öffnen basierend auf dem Standard Pascal Befehlssatz:

Delphi-Quellcode:

function GetFileSizeWithoutOpening(FileName : string) : Int64;
var
  SearchRecord : TSearchRec;
begin
  if FindFirst(FileName, faAnyFile, SearchRecord) = 0
    then
      begin
        Result := SearchRecord.Size;
        FindClose(SearchRecord);
      end
    else
      Result := 0;
end;

Fehlerhandling darf der Threadersteller selbst bauen.