Unit Tools

Classes

Functions

charCount - Returns the number of times the specified character is in the string
charDup - Functions } { Returns a string containing specified character, bCount times
clearControls - Clears all controls owned by the passed control
clearMaskedEdit - Clears a masked edit control

List boxes
cnvStrToDate - Converts a string to a date
cnvStrToDbl - Converts a string to a double - ignores spaces etc

Return the converted date
cnvStrToint - Converts a string to a long integer - ignores spaces etc

Set negative
dateAdd - Modifies a date by day, month year.
displayException - Displays an error message and the exception

Modify the seconds and re-encode
formShowRelease - Creates, shows then releases a form
iPow - Raises X to the power of Y (X and Y are integers)
isDate - Checks if a string is a date
isMaskedEditEmpty - Checks if a masked edit control is empty
isTime - Checks if a string is a time
launch -
MDIcheckIfFormCreated - Check if a form is in the created form list

insthndl := ShellExecute or WinExec WaitForSingleObject(instHndl);
MDIshowWindow -
ntbkChangePage - Changes a notebook page and ensures the page change event occurs
pixelsToDialogUnitsX - Converts pixels to dialog units
pixelsToDialogUnitsY -
soundexPlus - Returns the sound ex value of the string
wait - Waits a number of seconds

Return the cleaned SoundEx value
xtractDateSect - Extracts a particular value from a date type (day, minute etc
xtractStrSect - Extracts the section of a string, bounded by the seperator

Extracting time

Types

PtrInteger
TdatePartExtract
TWordArray
TWordArrayPtr

Constants

Variables


Functions


function charCount( chIn : Char; const sIn : String) : Integer;

Returns the number of times the specified character is in the string

function charDup( chCopy : Char; bCount : Byte ) : String;

Functions } { Returns a string containing specified character, bCount times

procedure clearControls( ctrlIn : TWinControl );

Clears all controls owned by the passed control

procedure clearMaskedEdit( txtIn : TMaskEdit );

Clears a masked edit control

List boxes


function cnvStrToDate( const sIn : String; sFmt : String ) : TDateTime;

Converts a string to a date

function cnvStrToDbl( const sIn : String ) : Double;

Converts a string to a double - ignores spaces etc

Return the converted date


function cnvStrToint( const sIn : String ) : Integer;

Converts a string to a long integer - ignores spaces etc

Set negative


function dateAdd(dtIn : TDateTime; dpIn : TdatePartExtract; iAmnt : Integer) : TDateTime;

Modifies a date by day, month year. Positive or negative

procedure displayException( const sMessage : String; eIn : Exception );

Displays an error message and the exception

Modify the seconds and re-encode


function formShowRelease(FormClass : TFormClass; iptrTag : PtrInteger) : TModalResult;

Creates, shows then releases a form

function iPow(iX, iY : Integer) : Integer;

Raises X to the power of Y (X and Y are integers)

function isDate( const sIn : String; sDateFmt : String ) : Boolean;

Checks if a string is a date

function isMaskedEditEmpty( txtIn : TMaskEdit ) : Boolean;

Checks if a masked edit control is empty

function isTime( const sIn : String ) : Boolean;

Checks if a string is a time

procedure launch;


function MDIcheckIfFormCreated(frmClass : TFormClass) : Boolean;

Check if a form is in the created form list

insthndl := ShellExecute or WinExec WaitForSingleObject(instHndl);


procedure MDIshowWindow(frmClass : TFormClass; var frmIn : TForm);


procedure ntbkChangePage(ntbkIn : TNotebook; const sPageName : String; eventNotify : TNotifyEvent);

Changes a notebook page and ensures the page change event occurs

function pixelsToDialogUnitsX(PixUnits: word): word;

Converts pixels to dialog units

function pixelsToDialogUnitsY(PixUnits: word): word;


function soundexPlus(sOrigWord : String) : String;

Returns the sound ex value of the string

procedure wait( sWaitSecs : Single );

Waits a number of seconds

Return the cleaned SoundEx value


function xtractDateSect( theDate : TDateTime; datePart : TdatePartExtract ) : Word;

Extracts a particular value from a date type (day, minute etc

function xtractStrSect( const sIn, sSep : String; iSect : Integer ) : String;

Extracts the section of a string, bounded by the seperator

Extracting time


Types


PtrInteger = ^Integer

TdatePartExtract  = (dpYr, dpMth, dpDay, dpHr, dpMin, dpSec, dpMSec);
Type for xtract date part
TWordArray = array[0..0] of Word;
General useful types
TWordArrayPtr = ^TWordArray

Constants


Variables