各位大虾请帮帮忙~！简单的类型转换问题

Question

procedure TForm3.Edit2KeyPress(Sender: TObject; var Key: Char);
var
b:integer;
begin
if key=#13 then
begin
b:=strtoint(edit2.Text)+2.5;
edit5.Text:=inttostr(b);
end;
end;
运行时出现错误，2.5的类型不对？

Answer 1

integer是整型变量,是包含-2147483648..2147483647范围的整数,2.5是个小数,不在这个范围内.你可以强制类型转换.

Answer 2

procedure TForm3.Edit2KeyPress(Sender: TObject; var Key: Char);
var
b:shortint;
begin
if key=#13 then
begin
b:=strtofloat(edit2.Text)+2.5;
edit5.Text:=floattostr(b);
end;
end;
这样好象不行