一个小问题，在线等待。。。

Question

var
zpcjid:=integer;
...
    with producedm.ADOQuery1 do
    begin
    close;
    sql.clear;
    sql.add('delete from table where zpcjid='zpcjid);
　　//这个地方类型不对，我想用整型的变量，怎样才能做到，谢谢。
    end;

Answer 1

delphi新手,冒昧回答
sql.add('delete from table where zpcjid='zpcjid);有点问题.
可能应写成: 
sql.add('delete from table where zpcjid='+zpcjid);
若不行:
试试: sql.add('delete from table where zpcjid='+IntToStr(zpcjid));

Answer 2

var
zpcjid:integer;
...
    with producedm.ADOQuery1 do
    begin
    close;
    sql.clear;
    sql.add('delete from table where zpcjid='+inttostr(zpcjid));
    end;

Answer 3

var
zpcjid:=integer;
...
    with producedm.ADOQuery1 do
    begin
    close;
    sql.clear;
    sql.add('delete from table where zpcjid='+inttostr(zpcjid));
    end;

Answer 4

var
zpcjid:=integer;
...
    with producedm.ADOQuery1 do
    begin
    close;
    sql.clear;
    sql.add('delete from table where zpcjid='+inttostr(zpcjid));
    exctesql;//这里没有返回，不能用open
end;

Answer 5

if zpcjid is int 
sql.add('delete from table where zpcjid='+inttostr(zpcjid));
else zpcjid is string
sql.add('delete from table where zpcjid='+zpcjid);exctesql

Answer 6

'delete from table where zpcjid=:MM');
ADOQUERY1。PARAMETERS。PARAMNAME（'MM'）.VALUE:=zpcjid;

Answer 7

定义变量错误:
   var 
    zpcjid:integer;
     
    要细心呀... 

Answer 8

var
zpcjid:=integer;
    with producedm.ADOQuery1 do
    begin
    close;
    sql.clear;
    sql.add('delete from table where zpcjid=:aa);
    parameters.parambyname('aa').value:=zpcjid;
　　end;