TFPIndexer

type TFPIndexer = class(TComponent)

protected

  function DoCodePageConversion(); virtual;

  function DoIndexStream(); virtual;

  procedure DoProgress(); virtual;

  procedure SearchFiles(); virtual;

  procedure ExcludeFiles(); virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  function IndexStream();

  function IndexFile();

  function Execute();

  property ErrorCount: Int64; [r]

published

  property Language: UTF8String; [rw]

  property OnProgress: TIndexProgressEvent; [rw]

  property UseIgnoreList: Boolean; [rw]

  property IgnoreNumeric: Boolean; [rw]

  property CommitFiles: Boolean; [rw]

  property Database: TCustomIndexDB; [rw]

  property ExcludeFileMask: UTF8String; [rw]

  property FileMask: UTF8String; [rw]

  property SearchPath: UTF8String; [rw]

  property SearchRecursive: Boolean; [rw]

  property DetectLanguage: Boolean; [rw]

  property CodePage: TSystemCodePage; [rw]

  property StripPath: string; [rw]

end;

TFPIndexer

TObject