Moin!
Oder nicht die Zahl in einen String um ihn dann für den Vergleich wieder zurück umzuwandeln, sondern nur dort umwandeln wo es nötig ist.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
platz: Int64;
prozent: string;
partition: Int64;
total: Int64;
begin
partition := DiskFree(4);
total := DiskSize(4);
prozent := IntToStr
(100 * partition div total) + 'Prozent frei: ';
label1.caption := prozent;
platz := partition div 1024 div 1024 div 1024;
Label2.Caption := IntToStr(platz) + ' Gbytes frei. ' ;
if platz < 1 then label3.Caption := 'Platte aufräumen';
end;
MfG
Muetze1