软件项目-快速简码查询之汉字处理

Function GetStr(var Str:String;ADOQ:TADOQuery):TWbStr;
var c,s,y,wb1,py1:AnsiString;
    i:Integer;
    a:integer;
    PR_WB:TWbStr;
begin
    wb1:='';
    py1:='';
    s:='';
    c:=trim(Str);
    a:=1;
    for i:=1 to Length(c) do
    begin
      if   Length(c) div 2=Length(WideString(C))   then //测试判断是不是汉字
      begin
      y:=copy(c,a,2);
      with ADOQ do
      begin
         close;
         sql.Clear;
         sql.Add('select * from pr_code');
         sql.Add('where CHN=:CHN');
         Parameters.ParamByName('CHN').Value:=y;
         open;

         if Recordcount<>0 then
         begin
           wb1:=wb1+FieldbyName('WBH').AsString;
           py1:=PY1+FieldbyName('PYH').AsString;
         end;
         a:=a+2;
      end;
      end
      else
      begin
      y:=copy(c,a,1);
           wb1:=wb1+y;
           py1:=py1+y;
           a:=a+1;
      end;

   end;
  PR_WB.WB:=wb1;
  PR_WB.PY:=py1;
  ADOQ.Close;
 result:=PR_WB;
end;