FileStream.Size ist negativ (Datei größer als 2GB)

[Sharky]

Hmmm.... bei mir geht es ohne Fehler:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  blubb : TFileStream;
begin
  if (OpenDialog1.Execute) then
  begin
    blubb := TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
    try
      ShowMessage (Format ('Dateigröße %d kB',[blubb.Size DIV 1024]));
    finally
      blubb.Free;
    end;
  end;
end;