delphi与数据库匹配

在edit中输入一句话如何判别此句子中是否含有数据库中的词语

答案：你是要过滤关键字吧.关键字存放在数据库中,要判断一句话中是否含有这些关键字!
  
可以分两步走:
 1. 将数据库中的关键字全部读入内存中:
 var
   keywords:TStrings;
  
  
 keywords:=TStringList.Create;
   ADOQuery1.SQL.Text:='SELECT * from <表名> where <字段名>';
   ADOQuery1.Active := True;
   while not ADOQuery1.Eof do begin
  
keywords.Add(Trim(ADOQuery1.FieldValues['words']));
  
ADOQuery1.Next;
   end;
   ADOQuery1.Active := False;
  
2. 判断是否含有关键字:
 function HasKeyWord(txt:string):boolean;
 begin
   Result := False;
   for i:=0 to keywords.Count-1 do
  
 if Pos(keywords[i],txt)>0 then begin
  
  Result := True;
  
  break;
  
end;
 end;

上一个：c++与Delphi
下一个：Delphi怎么用？