Class TSoundEx (unit SoundEx)

Inherits from

TComponent

--------------------------------------------------} { } { This unit was generated on 9/17/96 8:57:32 AM by } { the RTE Software Component Generator. } { } { } { This code was produced from the published } { SoundEx algorithm in PC Magazine. } { } {--------------------------------------------------} {-----------------------------------------------------} { } { Inherited from TComponent. } { } {-----------------------------------------------------

Constructors


constructor Create(AOwner: TComponent);

Public Declarations

--------------------------------------} { TSoundEx.



Functions

destructor Destroy;

--------------------------------------} { TSoundEx.

procedure SetInputString(Val: string);

--------------------------------------} { TSoundEx.

procedure SetResultString(Val: string);

--------------------------------------} { TSoundEx.

procedure SetResultString2(Val: string);

--------------------------------------} { TSoundEx.

Properties

property InputString : string

---------------------------------------------------------} { } { This property should contain the string to use for the } { find.

property ResultString : string

--------------------------------------------------------} { } { This property will contain the numeric string created } { from the InputString property.

Events

Variables

FInputString : string;

Private Declarations

FResultString : string;



Constructors


constructor Create(AOwner: TComponent);

Public Declarations

--------------------------------------} { TSoundEx.Create } {--------------------------------------


Functions


destructor Destroy;

--------------------------------------} { TSoundEx.Destroy } {--------------------------------------


procedure SetInputString(Val: string);

--------------------------------------} { TSoundEx.SetInputString } {--------------------------------------


procedure SetResultString(Val: string);

--------------------------------------} { TSoundEx.SetResultString } {--------------------------------------


procedure SetResultString2(Val: string);

--------------------------------------} { TSoundEx.SetResultString2 } {--------------------------------------


Properties


property InputString : string

---------------------------------------------------------} { } { This property should contain the string to use for the } { find. } { } {---------------------------------------------------------


property ResultString : string

--------------------------------------------------------} { } { This property will contain the numeric string created } { from the InputString property. } { } {--------------------------------------------------------


Events


Variables


FInputString : string;

Private Declarations


FResultString : string;