Ganze Zahl runden

[bitsetter]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  i:= 1672600;
  caption:= floatToStr(round(i /1000)/ 1000);
  i:= 1378;
  caption:= caption+ '   '+ IntToStr(round(i /100)* 100);
end;

EDIT: Beim 2. FloatToStr mit IntToStr ausgetauscht.