| Class TTISearch (unit mwTSearch) |
Tobject
| Constructors |
constructor Create;| Functions |
destructor Destroy;
function FindFirst(NewText: String):Integer;
function IFindFirst(NewText: String):Integer;
procedure IInit(NewPattern: String);
function INext:Integer;
procedure Init(NewPattern: String);
function Next:Integer;
function GetFinished:Boolean;
procedure MakeCompTable;| 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;