Forum: Object-Pascal / Delphi-Language
Delphi
by Daniel,
25. Apr 2003
Hallo NeoDeluxe,
also mit dem Open-Dialog geht das wie folgt:
If OpenDialog1.Execute Then
Begin
myFileSize:= DPGetFileSize( OpenDialog1.FileName );
End;
Forum: Object-Pascal / Delphi-Language
Delphi
by Daniel,
25. Apr 2003
Hallo neoDeluxe,
wenn man mal davon ausgeht, dass Du über den OpenDialog schon mal den vollständigen Pfad und Namen der Datei hast, könntest Du beispielsweise die folgende Funktion nutzen, um die Dateigröße zu ermitteln:
Function DPGetFileSize( aFilename : String ) : Cardinal;
var aFile : File;
oldFMode : Integer;
Begin
If FileExists( aFilename ) Then
Begin