usearch.~pas

用于中文分词的算法。包括逆向分词和反向分词

unit USearch;
{
//////////////////////////////////////////
  搜索类
//////////////////////////////////////////
}
interface
uses Classes,UDic,UDocuments,UParser,Windows,SyncObjs;


Type
   TSearcher = Class
   private
     FDic : TAbstractDic;
     FDocs : TAbstractDocs;
     FCritical : TCriticalSection;
     FParser : TParser;
   public
     procedure StartSearch();
   public
     Constructor Create(dic:TAbstractDic;docs:TAbstractDocs;Parser : TParser);
     Destructor Destroy();override;
   end;
implementation

{ TSearcher }

constructor TSearcher.Create(dic: TAbstractDic; docs: TAbstractDocs;Parser:TParser);
begin
  FDic := dic;
  FDocs := docs;
  FParser := Parser;
  FCritical := TCriticalSection.Create ;
end;

destructor TSearcher.Destroy;
begin
  FCritical.Release ;
  FCritical.Free;
  inherited;
end;

procedure TSearcher.StartSearch;
var
  ID : integer;
  Text : String;
begin
  while FDocs.EndDoc() do
  begin
     FCritical.Enter;
     FDocs.NextDoc();
     ID := FDocs.GetID();
     Text := FDocs.GetText();
     FCritical.Leave ;
     FParser.Parser(ID,Text); 
  end;
end;

end.