Question

delphi关于标准表达式中数据类型不匹配的问题

with AdoQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('INSERT INTO feedinfoDM(commonName,Breed,FatDM,AshDM,CPDM,LigninNDF,StarchNSC,NDFDM,eNDFNDF,NDFIPCP,ADFIPCP,DIPCP,solCPCP,NPNsolCP,TDNDM,NEmMcalkg,MEMcalkg,NEgMcalkg');
SQL.Add(',CaDM,NaDM,PDM,KDM,MgDM,SDM,ClDM,Comgkg,Femgkg,Imgkg,Semgkg,Mnmgkg,Znmgkg,Cumgkg,METUIP,LYSUIP,ARGUIP,THRUIP,LEUUIP,ILEUIP,VALUIP,HISUIP,PHEUIP,TRPUIP,A1000IUkg,D1000IUkg,E1000IUkg,CAhr,CB1hr,CB2hr,PB1hr,PB2hr,PB3hr,FeedNo,DMAF)');
SQL.Add('values(:a,:b,:c,:d,:e,:f,:g,:h,:i,:j,:k,:l,:m,:n,:o,:p,:q,:r,:s,:t,:u,:v,:w,:x,:y,:z,:aa,:ab,:ac,:ad,:ae,:af,:ag,:ah,:ai,:aj,:ak,:al,:am,:an,:ao,:ap,:aq,:ar,:as,:at,:au,:av,:aw,:ax,:ay,:az,:ba)');
Parameters.Items[0].value:=Edit50.Text;
Parameters.Items[1].value:=ComboBox1.Text;
if edit1.text='' then
Parameters.Items[2].value:=0
else
Parameters.Items[2].value:=strtofloat(Edit1.Text);

字段2为数值型。那么 Parameters.Items[2].value:=strtofloat(Edit1.Text);
哪里错了。应该怎么改。

Answer 1

那你别变，直接
Parameters.Items[2].value:=Edit1.Text;
这样试试
按理说转化了应该是对的
还有你的数据库中是int类型还是double类型
如果是int那你这句就有问题了

Answer 2

Parameters.Items[2].AsFloat:=strtofloat(Edit1.Text);

不过最好按名称来赋参数：
Parameters.ParamByName('c').AsFloat:=strtofloatDef(Edit1.Text,0);//给参数c赋值,strtofloatDef函数当转换出错时默认为0