TCustomFileReader

type TCustomFileReader = class

protected

  function AllowedToken(); virtual;

  function GetToken; virtual;

  function GetContext;

  function AllowWord();

  procedure Add();

  procedure DoDetectLanguage;

  property Stream: TStream; [rw]

  property StreamPos: Integer; [rw]

  property TokenStartPos: Integer; [r]

public

  constructor Create(); virtual;

  destructor Destroy; override;

  property DetectLanguage: Boolean; [rw]

  property Language: UTF8String; [rw]

  procedure LoadFromStream(); virtual;

  property SearchWord []: TSearchWordData; [r]

  property Count: Integer; [r]

  property Capacity: Integer; [rw]

  property OnAddSearchWord: TOnSearchWordEvent; [rw]

  property UseIgnoreList: Boolean; [rw]

  property IgnoreNumeric: Boolean; [rw]

  property CodePage: TSystemCodePage; [rw]

  property URL: UTF8String; [rw]

end;

TCustomFileReader

TObject