llllllll 发表于 2014-3-3 09:55:58

round函数怎么用

procedure TForm1.Button1Click(Sender: TObject);
      var
       x:integer;
begin
   x:=strtoint(edit1.text);
   edit1.text:=inttostr(round(x));
end;

end.


输入2.51后 为什么报错
请教哪里错了


罂粟 发表于 2014-3-3 11:46:53

x:=strtofloat(edit1.text);
页: [1]
查看完整版本: round函数怎么用