一个关于TSpinEdit的小问题，在线等待！

Question

请看下列代码
procedure TForm1.SpinEdit1Change(Sender: TObject);
var
  i: integer;
begin
  i := SpinEdit1.Value;
end;往SpinEdit1输入一个5，抱错：
EConvertError "is not a valid integer value"是怎么回事呀？ SpinEdit1.Value明明显示的是整型呀！！

Answer 1

i := StrtoIntDef(InttoStr(SpinEdit1.Value),0);

Answer 2

对不起，刚才回答的不对
其实这是Borland的错，有两种解决方案
1、你可以不必理会，在运行你的EXE文件时，就不会有错误提示了。
2、将C:\Program Files\Borland\Delphi6\Source\Samples目录下的Spin.pas文件复制到你现有程序的目录下修改其中的
function TSpinEdit.GetValue: LongInt;
begin
  try
    Result := StrToIntDef(Text, 0);  //原来是StrtoInt(Text);
  except
    Result := FMinValue;
  end;
end;

Answer 3

你是不是先将输入框中的数据删除后才输入5的？这样就错了，当你删除内容先触发了OnChange，这样就把空的内容给变量i ，这样就出错了