Class TTISearch (unit mwTSearch)

Inherits from

Tobject

Constructors


constructor Create;



Functions

destructor Destroy;

INext

function FindFirst(NewText: String):Integer;

Init

function IFindFirst(NewText: String):Integer;

IInit

procedure IInit(NewPattern: String);

Next

function INext:Integer;

IFindFirst

procedure Init(NewPattern: String);

GetFinished

function Next:Integer;

FindFirst

function GetFinished:Boolean;

MakeCompTable

procedure MakeCompTable;

Create

Properties

property Count : Integer


property Finished : Boolean


property Found : Boolean


property Position : Integer


Events

Variables

CompTable : array[#0..#255] of byte;


fCount : Integer;


fFinished : Boolean;


fFound : Boolean;


fPos : Integer;


fPosition : Integer;


HalfLen : Integer;


Pat : String;


PatLen : Integer;


PatLenPlus : Integer;


Shift : array[0..255] of Integer;


Text : String;


TextLen : Integer;



Constructors


constructor Create;


Functions


destructor Destroy;

INext


function FindFirst(NewText: String):Integer;

Init


function IFindFirst(NewText: String):Integer;

IInit


procedure IInit(NewPattern: String);

Next


function INext:Integer;

IFindFirst


procedure Init(NewPattern: String);

GetFinished


function Next:Integer;

FindFirst


function GetFinished:Boolean;

MakeCompTable


procedure MakeCompTable;

Create


Properties


property Count : Integer


property Finished : Boolean


property Found : Boolean


property Position : Integer


Events


Variables


CompTable : array[#0..#255] of byte;


fCount : Integer;


fFinished : Boolean;


fFound : Boolean;


fPos : Integer;


fPosition : Integer;


HalfLen : Integer;


Pat : String;


PatLen : Integer;


PatLenPlus : Integer;


Shift : array[0..255] of Integer;


Text : String;


TextLen : Integer;