错误问题

Question

  sql:=copy(sql,1,length(sql)-4);
  if b1=false and b2=false then
    messagebox(application.handle,'请选择条件查询','信息',mb_ok or mb_iconinformation);
  if b1 then
    adoquery1.Parameters.ParamByName('s1'):='%'+edit1.text+'%';
  if b2 then
    adoquery1.Parameters.ParamByName('s2'):='%'+edit2.text+'%';
end;提示:
[错误] Unit1.pas(60): Left side cannot be assigned to
[错误] Unit1.pas(60): Incompatible types: 'TParameter' and 'String'
[错误] Unit1.pas(62): Left side cannot be assigned to
[错误] Unit1.pas(62): Incompatible types: 'TParameter' and 'String'
请问怎么修改,谢谢?

Answer 1

  if b1 then 
    adoquery1.Parameters.ParamByName('s1').value :='%'+edit1.text+'%'; 
  if b2 then 
    adoquery1.Parameters.ParamByName('s2').Value :='%'+edit2.text+'%'; 
end; 

Answer 2

adoquery1.Parameters.ParamByName('s1').value :='%'+edit1.text+'%'; 
adoquery1.Parameters.ParamByName('s2').Value :='%'+edit2.text+'%'; 

Answer 3

  sql:=copy(sql,1,length(sql)-4);
  if b1=false and b2=false then
    messagebox(application.handle,'请选择条件查询','信息',mb_ok or mb_iconinformation);
  if b1 then
    adoquery1.Parameters.ParamByName('s1').AsString :='%'+edit1.text+'%';
  if b2 then
    adoquery1.Parameters.ParamByName('s2').AsString :='%'+edit2.text+'%';
end;