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
PtrInteger
TdatePartExtract
TWordArray
TWordArrayPtr
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
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