procedure Tform1.getdetaildata(pa,pb:string;dc:integer);
begin
edit1.text:=pa;
edit2.text:=pb;
edit3.text:=inttostr(dc);
//这是我自定义的一个函数!我下面有一个添加按纽,当我点击添加按纽的时候我希望edit里面的内容为空!//添加;
procedure TForm1.Button2Click(Sender: TObject);
begin with ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select * from aa where 1<>1');
open;
getdetaildata('','',strtoint(edit3.text));
edit1.setfocus;
buttonstatus(false); end; //getdetaildata('','','');我之前有这样写,但出错了!说类型不匹配!string和integer
//getdetaildata('','',null)这样写的话语法上没有错误,但是运行的时候却出错了!
我想应该是后面这个字符是integer的!而现在我附给它的值却是字符型的!
请问怎么样修改才不会出错呢?
begin
edit1.text:=pa;
edit2.text:=pb;
edit3.text:=inttostr(dc);
//这是我自定义的一个函数!我下面有一个添加按纽,当我点击添加按纽的时候我希望edit里面的内容为空!//添加;
procedure TForm1.Button2Click(Sender: TObject);
begin with ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select * from aa where 1<>1');
open;
getdetaildata('','',strtoint(edit3.text));
edit1.setfocus;
buttonstatus(false); end; //getdetaildata('','','');我之前有这样写,但出错了!说类型不匹配!string和integer
//getdetaildata('','',null)这样写的话语法上没有错误,但是运行的时候却出错了!
我想应该是后面这个字符是integer的!而现在我附给它的值却是字符型的!
请问怎么样修改才不会出错呢?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货