Problem mit Dateigrößen-Feststellung bei "kleineren" Dateien

[Helmi]

Hallo,

ich hab folgende zwei Funktionen um die Größe einer Datei festzustellen:

1. GetFileSize

Delphi-Quellcode:

function GetFileSize(const FileName: String): Int64;
var
  SearchRec: TSearchRec;

begin
  Result := -1;
  If FindFirst(FileName, faAnyFile, SearchRec) = 0 then
  begin
    try
      Result := SearchRec.Size;
    finally
      FindClose(SearchRec);
    end;
  end;
end;

2. FileSize

Delphi-Quellcode:

AssignFile(FromF, OpenDialog1.FileName);
FileMode    := fmOpenread;
reset(FromF);
Label2.Caption := IntToStr(FileSize(FromF));

Nun hab ich diese zwei Funktionen verglichen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  FromF: file of byte;

begin
  If OpenDialog1.Execute then
    begin
      Label1.Caption := IntToStr(GetFileSize(OpenDialog1.FileName));

      AssignFile(FromF, OpenDialog1.FileName);
      FileMode    := fmOpenread;
      reset(FromF);
      Label2.Caption := IntToStr(FileSize(FromF));
    end;
end;

Ich hab eine Datei die ist 5,12 GB (5.501.142.528 Bytes) groß.
Bei dieser wird mir in beiden Labels ein Wert von
1206175232.

Bei einer anderen Datei die eine Größe von 2,97 GB (3.199.247.872 Bytes).
Bei dieser Datei wird aber in beiden Labels ein Wert
von -1095719424.

Wieso ist bei der kleinen Datei ein Minus davor?

[phXql]

Hört sich nach nem Integer-Overflow an.

[Helmi]

Zitat:

Zitat von phXql

Hört sich nach nem Integer-Overflow an.

Kann ich mir nicht vorstellen. Denn das passiert bei der
kleineren der beiden Dateien. Bei der Größeren wird alles
normal (also positiv) angezeigt.

[taaktaak]

Moin, Moin,
in beiden Fällen reicht der Wertebereich von Integer nicht aus! Auch im ersten Fall liefert SearchRec.Size nur einen Integer zurück, da nutzt das Int64 leider nix

[Khabarakh]

Zitat:

Zitat von Helmi

Bei der Größeren wird alles normal (also positiv) angezeigt.

Da sollte doch ein Blick reichen, um zu erkennen, dass auch die positive Zahl alles andere als "normal" ist :stupid: . 1206175232 Byte sind 1,12 GB, etwas weniger als 5 GB ;) . Addiere einmal 2^32 Byte und staune :mrgreen: .

Und wie man's richtig macht, hast du ja schon längst hier als Antwort bekommen...