用pos函数来判断，在下面这一行怎么会出错呢？ ___delphi___

用pos函数来判断，在下面这一行怎么会出错呢？ if pos(fieldbyname('fzr').AsString,fieldbyname('xm_luru').AsString) then
系统提示：Type of expression must be BOOLEAN

程序代码如下：
procedure TForm3.ziranClick(Sender: TObject);
var
heji:double; //符合要求的发展量
zongliang:double;//总发展量

begin
screen.Cursor:=crSQLWait;
heji:=0;
with adoquery3 do
begin
close;
sql.Clear;
sql.Add('SELECT fzr,xm_luru FROM tianyi_list');
open;

with adoquery3 do
begin
first;
while not Eof do begin
if pos(fieldbyname('fzr').AsString,fieldbyname('xm_luru').AsString) then
//这个if语句怎么会错呢？
heji:=heji+1;
next;
end;
end;
zongliang:=adoquery3.RecordCount;
ziran.Caption:='占比：'+floattostr(heji/zongliang*100)+'%';

screen.Cursor:=crarrow;
end;
end;


　　　　　　　　　　　　　 查看评论 回复