Einzelnen Beitrag anzeigen

SneakyBagels
(Gast)

n/a Beiträge
 
#4

AW: Filegrösse von Datei aus Opendialog

  Alt 10. Jun 2017, 12:57
Oder so
Delphi-Quellcode:
function getFileSizeA(const aFileName: string): Int64;
var
 SR: TSearchRec;
begin
 Result := 0;

 if not FileExists(aFileName) then
  Exit;

 if FindFirst(aFileName, faAnyFile and not faDirectory, SR) = 0 then
  try
   Result := SR.Size;
  finally
   System.SysUtils.FindClose(SR)
  end;
end;
  Mit Zitat antworten Zitat