Division

[daredd]

Kann mir einer sagen was ich hier bei sowas einfachem falsch mache?

Delphi-Quellcode:

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

Ich bekomme beim Compelieren eine Fehlermeldung:

Incompatible types: Int64 and Extend.

Ich will eigentlich nur die große bytezahl als Megabytezahl bzw. Gb anzeigen lassen.

[DeddyH]

Der Operator / ist für Fließkommazahlen. Für ganze Zahlen musst Du div verwenden.

[Phoenix]

Die Meldung sagt doch schon alles aus.
Aus der Division kommt (logischerweise) eine Gleitkommazahl raus (Extended).
Du willst diese Zahl, die Nachkommastellen speichern kann, aber einem Integer - also einem Ganzzahligen Wert zuweisen. Das geht nicht. Wie denn auch?

Du musst also entweder die linke Seite in einen Fließkommawert umwandeln, oder aber das Ergebnis der Division erst runden.

[daredd]

Ja Mensch wie dumm bin ich eigentlich?
Oh man stimmt. Also ich habe gestern zu lange gearbeitet.

Danke

[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;

[DeddyH]

Oder gleich so:

Delphi-Quellcode:

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

[Phoenix]

Also mal ehrlich:

Delphi-Quellcode:

procedure TMainform.Button1Click(Sender: TObject);
begin
   Label16.Caption := Format('%.0f', [DiskFree(0)/1024]);
end;

[DeddyH]

Das wäre mein nächster Schritt gewesen

[JasonDX]

Nächste Möglichkeit:

Delphi-Quellcode:

procedure TMainform.Button1Click(Sender: TObject);
begin
   Label16.Caption := IntToStr(DiskFree(0) shr 10);
end;

greetz
Mike

[Phoenix]

Okay, hast gewonnen