Class TTISearch (unit mwTISearch)

Inherits from

Tobject

Constructors


constructor Create;



Functions

destructor Destroy;

Next

function FindFirst(NewText: String):Integer;

Init

procedure Init(NewPattern: String);

GetFinished

function Next:Integer;

FindFirst

function GetFinished:Boolean;

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;

Next


function FindFirst(NewText: String):Integer;

Init


procedure Init(NewPattern: String);

GetFinished


function Next:Integer;

FindFirst


function GetFinished:Boolean;

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;