Division

[Die Muhkuh]

Das hier wäre auch möglich:

Delphi-Quellcode:

procedure TMainform.Button1Click(Sender: TObject); 
var 
s, sc : Int64; 
begin 
     //Button1.Visible := false; 
     //InitMetaEx; 
     sc := 1024; 
     s := DiskFree(0); 
     s := Round(s / sc); // Beachte das Round 
     Label16.Caption := Format('%d', [s]); 
end;