Hallo
Also ich bin verblüfft! Ich kann das Problem unter Delphi2007Prof nachstellen!
-> Das zweite Showmessage zeigt ein anderes Ergebnis, was nicht sein darf!
Zuerst dachte ich, daß dies ein Problem von REAL sei, aber selbst die Umstellung auf DOUBLE zeigt hier unterschiedliche Werte an!
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
var
p7 : double;
staedte : double;
begin
p7 := 0.0;
staedte := 100.0;
SetRoundMode(rmTruncate);
p7:=RoundTo((100.0*0.01),0); showmessage(floattostr(p7));
p7:=RoundTo((Staedte*0.01),0); showmessage(floattostr(p7)); // hier anderes ergebnis!
end;