Größenvergleich von 2 Dateien

[moori]

Serrs,

mit dem Code kannst du die Dateigrösse ermitteln. Dann einfach beide miteinander vergleichen.

Delphi-Quellcode:

function GetFileSize(const AFileName: String): Integer;
var
  F: TSearchRec;
begin
  Result:=-1;
  if FindFirst(AFileName,faAnyFile,F)=0 then
  begin
    try
      Result := F.Size;
    finally
      FindClose(F);
    end;
  End;
end;

Is nich von mir aber sollte gehen.


Gruss Moori