求高手帮忙 向数据库增加数据时出现Type mismatch in expression

Question

我是用delphi做的一个小型系统,数据库用delphi自带的paradox,连接的方式是BDE.
链路地址为Number类型,城市类型为Alpa时,向数据库增加数据时出现Type mismatch in expression. 
增加数据代码:   
   Query1.Close;
   Query1.SQL.Clear;
   Query1.SQL.Add('insert into LikAddr '
            +'values(:链路地址,:城市)');
   Query1.ParamByName('链路地址').AsInteger:=strtoint(LinkAddrEdit.Text);//类型转换
   Query1.ParamByName('城市').AsString:=CityEdit.Text;
   Query1.ExecSQL;
当链路地址为Alpa类型,城市类型为Alpa时,数据直接传送则没有问题.请问高手这是什么原因?谢谢!
增加数据代码:
   Query1.Close;
   Query1.SQL.Clear;
   Query1.SQL.Add('insert into LikAddr '
            +'values(:链路地址,:城市)');
   Query1.ParamByName('链路地址').AsString:=LinkAddrEdit.Text;
   Query1.ParamByName('城市').AsString:=CityEdit.Text;
   Query1.ExecSQL;

Answer 1

你的表LikAddr中链路地址对应的字段类型究竟是什么？怎么一会儿number一会Alpa的啊？
看你的代码出现这一情况，估计那个字段是Alpa类型的。因此，在第一部分的代码中就不要使用AsInteger := StrToInt(LinkAddrEdit.Text);  而要使用 AsString := LinkAddrEdit.Text;

Answer 2

改成这样
Query1.ParamByName('链路地址').value:=strtoint(LinkAddrEdit.Text);//类型转换
Query1.ParamByName('城市').value:=CityEdit.Text;