Fehler beim Runden

[Wolfgang Mix]

Kaufmännisch Runden auf n Stellen würde ich zunächst so versuchen:

Delphi-Quellcode:

function round2(number:double;n:word):double;
begin
  case n of
      2:begin
          number:=number*100;
          number:=number+0.5;
          number:=trunc(number);
          result:=number/100;
        end;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var number:double;
begin
   number:=StrToFloat(Edit1.Text);
   Edit2.Text:=FloatToStr(round2(number,2));
end;

end.

Gruß

Wolfgang