Einzelnen Beitrag anzeigen

Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: Dateien ver-und ausgleichen

  Alt 29. Aug 2003, 13:27
Hi Bruder

So bekommst du die dateigröße heraus:

Delphi-Quellcode:
Function DPGetFileSize( aFilename : String ) : Cardinal;
var aFile : File;
oldFMode : Integer;
Begin
  If FileExists( aFilename ) Then
  Begin
    oldFMode:= FileMode;
    FileMode:= fmOpenRead;

    AssignFile( aFile, 1 );
    Result:= FileSize( aFile );
    CloseFile( aFile );

    FileMode:= oldFMode;
  End
  Else
    Result:= -1;
End;
Mach das mit beiden Datei-Pfaden und dann kannst du schon mal den Größenunterschied feststellen.
  Mit Zitat antworten Zitat