Man kann doch auch auf diese ganze Geschichte mit Round() verzichten:
Delphi-Quellcode:
var i: Double;
...
i:= 0.1;
while i >= 0.009 do begin
//tue irgendwas mit i
i:= i- 0.001;
end;
Das entspricht dann dem Code:
Code:
for i=0.1 to 0.009 do step -0.001
tue irgendwas mit i
MfG
Binärbaum