请问：if (strpos(pchar(getstringpy(s_source)),pchar(S_find))<>nil) or(strpos(pchar(s_source),pchar(s_find))<>nil) then ....是什

var
   I_line:integer;
   S_source,S_find:string;...S_find:=uppercase(trim(e_find.Text ));
      for I_line:=1 to sg_data.RowCount - 1 do
         begin
            S_SOURCE:='';
            S_source:=uppercase(trim(sg_data.cells[1,I_line]+sg_data.cells[2,I_line]+sg_data.cells[3,I_line]));
            if (strpos(pchar(getstringpy(s_source)),pchar(S_find))<>nil) or
               (strpos(pchar(s_source),pchar(s_find))<>nil) then
            begin
               sg_data.row :=I_line;
               exit;
            end;
         end;
      messagedlg('所有商品信息中没有找到含“'+e_find.text+'”字符的记录！',mtwarning,[mbok],0);
      e_find.Text:='';
   end;请问：
if (strpos(pchar(getstringpy(s_source)),pchar(S_find))<>nil) or (strpos(pchar(s_source),pchar(s_find))<>nil) then ...
是什么意思？