如何在Delphi中将float强制转化为int

Question

要保留所输入的一个浮点数的最后两位，我编写了以下代码，无奈运行时候总出错：var
  i:integer;
  j:real;
begin    i:=strtoint(edit1.Text)*100;
    j:=i/100;
    label3.Caption:=floattostr(j);
end;当我在Edit1中输入1.234时候，提示   '1.234' is not a valid integer value.
Why?
试图用以下这段程序完成这个功能：
  f:=strtofloat(edit1.Text)*100;
  想把float类型改为int类型，可怎么改呢，会的朋友们希望能够提示一下，谢谢！

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
var
  i:Integer;
  j:real;
begin
    j:=StrToFloat(edit1.Text);
    i:=Trunc(j*100);
    j:=i / 100;
    label3.Caption:=floattostr(j);
end;

Answer 2

trunc是截掉小数
round是四舍五入
trunc()+1是进位　呵呵