Kaufmännische Runden geht nicht !

[Davidlocke13]

Sorry der Teil ist was Extra, sollte nicht dazu gehören:

Delphi-Quellcode:

procedure TForm3.Button2Click(Sender: TObject);
var
  Y: Double;
begin
  Y:= StrToFloat(Edit3.Text);
  Edit4.Text:= FloatToStr(Round(Y));
end;