怎么可能呢procedure TForm1.Button1Click(Sender: TObject); begin with adoquery1 do begin close; sql.Clear; sql.Add('select * from a where rr = :rr') ; adoquery1.Parameters.ParamByName('rr').Value := strtoint(Edit1.Text); open; if recordcount <> 0 then begin showmessage(fieldbyname('s').AsString); end; end; end;可以的
begin
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from a where rr = :rr') ;
adoquery1.Parameters.ParamByName('rr').Value := strtoint(Edit1.Text);
open;
if recordcount <> 0 then
begin
showmessage(fieldbyname('s').AsString);
end;
end;
end;可以的