Zitat von
RWarnecke:
Zitat von
Luckie:
Dann müsste es schon bei der Variablenzuweisung einen Fehler geben.
Das glaube ich nicht ganz. Ich bin der Meinung, dass Ihn das Format ein wenig aus der Bahn schmeißt und er einige Typen durcheinander schmeisst.
@mind87:
Wie sieht denn jetzt Dein Code aus und hast Du da noch Fehler drin ? Wenn ja, welche und was möchtest Du erreichen ?
Delphi-Quellcode:
procedure TForm1.ComboBox1Change(Sender: TObject);
var
freeSpace, totalSpace: double;
s,drive: Char;
total:integer;
begin
case combobox1.ItemIndex of
0:
begin
drive:='C';
end;
1:
begin
drive:='D';
end;
2:
begin
drive:='E';
end;
3:
begin
drive:='F';
end;
4:
begin
drive:='G';
end;
5:
begin
drive:='H';
end;
end;
s:=drive;
totalSpace:= DiskSize(Ord(s) - 64);
freeSpace:= DiskFree(Ord(s) - 64);
Edit_gspeicher.text:= Format('%12.0n', [totalSpace]);
Edit_fspeicher.text:= Format('%12.0n', [freeSpace]);
Label6.Caption := IntToStr(Round((totalSpace - freeSpace) / totalSpace * 100)) +
' Percent used.';
total:=round((totalspace-freespace)/totalspace*100);
progressbar1.position:=total;
end;
Solange ich totalspace und freespace nicht integer setze, funktioniert die Ausgabe mit den Tausenderstellen (%12.0n). Macht doch keine Probleme das ich die in double verwende oder?