trunc对浮点数进行取整操作 round对浮点数进行四舍五入操作 procedure TForm1.N21Click(Sender: TObject); var real00:Real; begin real00 := 123.4; ShowMessage('trunc(123.4)='+ IntToStr(Trunc(real00))); //结果:123 ShowMessage('Round(123.4)='+ IntToStr(Round(real00))); //结果:123 real00 := 123.6; ShowMessage('trunc(123.6)='+ IntToStr(Trunc(real00))); //结果:123 ShowMessage('Round(123.6)='+ IntToStr(Round(real00))); //结果:124 end;