Huhu

Hab ma ne Frage zu Delphi(6) und zwar:

Ich habe ein Programm das per Button eine vorher angegebene Datei herunterlädt. Nun lädt man noch eine 2. Datei herunter.
Nun sind diese Dateien im selben Ordner mit den Namen: "vergleich1.* und vergleich2.*"
Nun sollen diese beiden Dateien von der Größe her verglichen werden nun leider hab ich kein schimmer wie ich das hinbekommen soll.

Thx schonmal

Serrs,

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

zusammenfalten · markieren

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

Hmm und wie soll ich dann den vergleich schreiben ?

So verglechst du dann beide Dateien:

markieren

Delphi-Quellcode:

if GetFileSize(Vergleich1) > GetFielSize(Vergleich2) then
  ShwoMessage('Vergleich1 ist grösser')
else
  ShwoMessage('Vergleich2 ist grösser');

Moin Blubbi,

Zitat von BLuBBi:

Hmm und wie soll ich dann den vergleich schreiben ?

1. Du willst die Grössen zweier Dateien vergleichen
2. Du hast einen Code bekommen, der Dir die Grösse einer Datei liefert
3. Wo ist das Problem zwei Werte miteinander zu vergleichen?

Muss die Funktion GetFileSize zu dem Buttonklick-code oder wo muss der hin ?

/edit: Ich mach noch net so lange Delphi deswegen auch diese Fragen

Moin Blubbi,

meinst Du jetzt die Funktion selber oder deren Aufruf?

Die funktion selber.

Moin Blubbi,

die Deklaration, wie sie moori gepostet hat, muss in den implementation Abschnitt der Unit, der Kopfe (function GetFileSize...) sollte noch einmal im interface Abschnitt wiederholt werden, damit aus jeder unit heraus, die auf diese unit zugreifen kann die Funktion aufgerufen werden kann.

Also wenn ich den Code von moori kompiliere kommt da immer Undeclared identifier 'Result'
Is wohl irgendwo éin Fehler im Code.

/edit: Nee doch kein Fehler hab nur was falsch gemacht.