Einfaches Addieren klapt nicht!

[litsa]

Zitat:

PS: Ich geh mal davon aus, dass das nicht der gesamte Code is. Ansonsten isses ziemlich raetselhaft, wie 10.27 MB ins Editfeld kommen

Habe noch ein editfeld zum check nachträglich eingefügt um euch ein screenshot zu machen und gleich wieder gelöscht..

Zitat:

Was man dagegen tun kann: Total als Int64 deklarieren, dessen Zahlenbereich sollte vorerst mal reichen

Total wird jetz richtig ermittelt...Danke

Nun hab aber ich ein Problem beim FormatBytes wenn Total: int64; (und genauso wenn Totalsize: int64:

Delphi-Quellcode:

function FormatBytes(const Bytes : cardinal):string;
begin
  if Bytes < 1024 then
  begin
    Result := Format('%s', [IntToStr(Bytes)]) + ' B';
    Exit;
  end;
  if (Bytes >= 1024) and (Bytes < (1024 * 1024)) then
  begin
    Result :=  Format('%n', [Bytes / 1024]) + ' KB';
    Exit;
  end;
  if (Bytes >= (1024*1024)) and (Bytes < (1024 * 1024 * 1024)) then
  begin
    Result :=  Format('%n', [Bytes / (1024 * 1024)]) + ' MB';
    Exit;
  end;
  if Bytes >= (1024*1024*1024)  then
  begin
    Result :=  Format('%n', [Bytes / (1024 * 1024 * 1024)]) + ' GB';
    Exit;
  end;
end;

Formatbytes(Total) ergibt immer noch 10,27MB (obwohl wie gesagt Total ohne format richtig is). Wie komm ich jetzt da raus?!

[Christian Seehase]

Moin litsa,

Code:

function FormatBytes(const Bytes : [b][color=red]cardinal[/color][/b]):string;

wenn schon, dann auch überall ändern

[litsa]

Zitat:

In den Projektoptionen kannst Du auf dem Tab "Compiler" unter "Laufzeit-Fehler" die Option für die Prüfung eines Integer-Überlaufes aktivieren. Wenn Du das während der Testphase machst sorgen solche Fehler für eine Fehlermeldung.
Nicht vergessen, das später wieder rauszunehmen, da die Prüfungen das Programm sonst grösser und langsamer machen.

werd ich machen ...danke!

Zitat:

wenn schon, dann auch überall ändern

..und ich hatte schon meinen 3. Kaffe heute!

Supi kann jetzt sagen bin ein glückliches Mädel da dies auch gelöst wurde!!

Ich danke euch allen

Gruß
Evangelia