Einzelnen Beitrag anzeigen

Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.034 Beiträge
 
Delphi 12 Athens
 
#9

AW: Exception bei AssignFile mit langem Dateipfad

  Alt 28. Dez 2017, 13:36
Wenn es nur um die Größe geht, könnte auch dieser Ansatz erfolgreich sein:
Delphi-Quellcode:
function GetFileSize(const AFileName: string): Int64;
var
  handle: THandle;
begin
  handle := FileCreate(AFileName);
  try
    Result := FileSeek(handle, Int64(0), 2);
  finally
    FileClose(handle);
  end;
end;
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat