Zitat von
Tomislav:
das hab ich schon vorher verstanden
Entschuldige, das habe ich deinen Beiträgen wirklich nicht entnehmen können. Insbesondere der Aufruf RoundTo(2323, -2) hat mich das Gegenteil vermuten lassen.
Zitat von
Tomislav:
aber es wird nicht angenommen es funktioniert einfach nicht
Du musst den von dir verwendeten Code und das damit produzierte Ergebnis zeigen, und wenn du dann noch deine enttäuschten Erwartungen beschreibst, dann kann dir sicher geholfen werden.
Freundliche Grüße vom marabu
Nachtrag: Code zum Testen
Delphi-Quellcode:
procedure TDemoForm.TestButtonClick(Sender: TObject);
var
d: Double;
i: Integer;
begin
d := 12345.67;
for i := -2 to 4 do
ShowMessage(Format('%10.3f', [RoundTo(d, i)]));
end;