问题：为什么带小数点的数字无法提交？

Question

---------------------------
Debugger Exception Notification
---------------------------
Project Project2.exe raised exception class EConvertError with message ''12121.121' is not a valid integer value'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------procedure TForm1.Button1Click(Sender: TObject);
begin
          adotable1.Close;
          adotable1.Open;
          adotable1.Append;
          adotable1.FieldByName('个人).AsInteger:=strtoint(edit1.Text);
          adotable1.Post;
          refresh();
          showmessage('成功');
end;

Answer 1

还是因为我的这句话：
adotable1.FieldByName('个人).AsInteger:=strtoint(edit1.Text);
中的strtoint有问题？

Answer 2

是转换的过程中， StrToInt('12121.12')不是一个整数你可以将Trunc(StrToFloat(Edit1.Text))来执行，因为整数和浮点数是用不同函数来转换的

Answer 3

如果希望存储的是有小数的，在数据库中就是定义为double型，adotable1.FieldByName('个人).AsFloat:=strtoFloat(edit1.Text);