selcet * from atable where i = :aa adoquery1.Parameters.ParamByName('aa').value:=inttostr(varNumber);
selcet * from atable where i = ''''+IntToStr(varNumber)'''';
SQL := 'selcet * from atable where i = '+ IntToStr(varNumber);
with adoquery1 do begin active:=false; sql.Clear; sql.Add(selcet * from atable where i =:s1'); Parameters[0].asinteger:=varNumber; open; end;
: fuction(我是东北那旮来地) 和 fuction(我是东北那旮来地) 的方法能行
procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin i:=24; query1.SQL.Clear; query1.sql.add('select * from lzj where age='''+inttostr(i)+''''); query1.open; showmessage(query1.FieldByName('name').asstring); end;
adoquery1.Parameters.ParamByName('aa').value:=inttostr(varNumber);
begin
active:=false;
sql.Clear;
sql.Add(selcet * from atable where i =:s1');
Parameters[0].asinteger:=varNumber;
open;
end;
var
i:integer;
begin
i:=24;
query1.SQL.Clear;
query1.sql.add('select * from lzj where age='''+inttostr(i)+'''');
query1.open;
showmessage(query1.FieldByName('name').asstring);
end;