var
a,b :real; //我用的一直是实型 ,不是整行 前面那帖子我写错了
begin 
  a:=strtoint(edit1.text); 
  b:=strtoint(edit2.text); 
  edit3.text:=floattostr(a+b); 
真的还是出现错误 说这不是整形的数值 变量换double也不行
例如计算 12.12+13.13=25.25 就出现错误
“12.12” is not avalid integer value