Class TForm1 (unit TestStr1)

Inherits from

TForm

(c) 1998 Jaro Benes, All Right Reserved Test program for specific routines from jbStr.Pas module

Constructors



Functions

procedure Button3Click(Sender: TObject);


procedure _CapitalizeClick(Sender: TObject);


procedure _CenterClick(Sender: TObject);


procedure _ChangeClick(Sender: TObject);


procedure _CountClick(Sender: TObject);


procedure _ExtensionOnlyClick(Sender: TObject);


procedure _ExtractWordClick(Sender: TObject);

standard string manipulation

procedure _FileNameOnlyClick(Sender: TObject);


procedure _FormClick(Sender: TObject);


procedure _GetEndClick(Sender: TObject);


procedure _GetPositionClick(Sender: TObject);


procedure _HashClick(Sender: TObject);


procedure _InsertWordClick(Sender: TObject);


procedure _MaskAndZeroClipClick(Sender: TObject);


procedure _NameOnlyClick(Sender: TObject);


procedure _PadLeftClick(Sender: TObject);


procedure _PadRightClick(Sender: TObject);


procedure _PathOnlyClick(Sender: TObject);


procedure _PopWordClick(Sender: TObject);


procedure _PushClick(Sender: TObject);


procedure _ShortFileNameClick(Sender: TObject);


procedure _ShortPathClick(Sender: TObject);


procedure _SmashClick(Sender: TObject);


procedure _StripClick(Sender: TObject);


procedure _StrLoCaseClick(Sender: TObject);


procedure _StrUpCaseClick(Sender: TObject);

using constant for test pass} {Czech code is possible change, table definition is included in pascal text and size is 8*128 byte on data

procedure _TrimBothClick(Sender: TObject);


procedure _TrimLeftClick(Sender: TObject);


procedure _TrimRightClick(Sender: TObject);


procedure _WordCountClick(Sender: TObject);


procedure _ZipClick(Sender: TObject);


Properties

Events

Variables

Bevel1 : TBevel;


Bevel2 : TBevel;


Button3 : TButton;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Panel1 : TPanel;


_Capitalize : TButton;


_Center : TButton;


_Change : TButton;


_Count : TButton;


_ExtensionOnly : TButton;


_ExtractWord : TButton;


_FileNameOnly : TButton;


_Form : TButton;


_GetEnd : TButton;


_GetPosition : TButton;


_Hash : TButton;


_InsertWord : TButton;


_MaskAndZeroClip : TButton;


_NameOnly : TButton;


_PadLeft : TButton;


_PadRight : TButton;


_PathOnly : TButton;


_PopWord : TButton;


_Push : TButton;


_ShortFileName : TButton;


_ShortPath : TButton;


_Smash : TButton;


_Strip : TButton;


_StrLoCase : TButton;


_StrUpCase : TButton;


_TrimBoth : TButton;


_TrimLeft : TButton;


_TrimRight : TButton;


_WordCount : TButton;


_Zip : TButton;



Constructors


Functions


procedure Button3Click(Sender: TObject);


procedure _CapitalizeClick(Sender: TObject);


procedure _CenterClick(Sender: TObject);


procedure _ChangeClick(Sender: TObject);


procedure _CountClick(Sender: TObject);


procedure _ExtensionOnlyClick(Sender: TObject);


procedure _ExtractWordClick(Sender: TObject);

standard string manipulation


procedure _FileNameOnlyClick(Sender: TObject);


procedure _FormClick(Sender: TObject);


procedure _GetEndClick(Sender: TObject);


procedure _GetPositionClick(Sender: TObject);


procedure _HashClick(Sender: TObject);


procedure _InsertWordClick(Sender: TObject);


procedure _MaskAndZeroClipClick(Sender: TObject);


procedure _NameOnlyClick(Sender: TObject);


procedure _PadLeftClick(Sender: TObject);


procedure _PadRightClick(Sender: TObject);


procedure _PathOnlyClick(Sender: TObject);


procedure _PopWordClick(Sender: TObject);


procedure _PushClick(Sender: TObject);


procedure _ShortFileNameClick(Sender: TObject);


procedure _ShortPathClick(Sender: TObject);


procedure _SmashClick(Sender: TObject);


procedure _StripClick(Sender: TObject);


procedure _StrLoCaseClick(Sender: TObject);


procedure _StrUpCaseClick(Sender: TObject);

using constant for test pass} {Czech code is possible change, table definition is included in pascal text and size is 8*128 byte on data


procedure _TrimBothClick(Sender: TObject);


procedure _TrimLeftClick(Sender: TObject);


procedure _TrimRightClick(Sender: TObject);


procedure _WordCountClick(Sender: TObject);


procedure _ZipClick(Sender: TObject);


Properties


Events


Variables


Bevel1 : TBevel;


Bevel2 : TBevel;


Button3 : TButton;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Panel1 : TPanel;


_Capitalize : TButton;


_Center : TButton;


_Change : TButton;


_Count : TButton;


_ExtensionOnly : TButton;


_ExtractWord : TButton;


_FileNameOnly : TButton;


_Form : TButton;


_GetEnd : TButton;


_GetPosition : TButton;


_Hash : TButton;


_InsertWord : TButton;


_MaskAndZeroClip : TButton;


_NameOnly : TButton;


_PadLeft : TButton;


_PadRight : TButton;


_PathOnly : TButton;


_PopWord : TButton;


_Push : TButton;


_ShortFileName : TButton;


_ShortPath : TButton;


_Smash : TButton;


_Strip : TButton;


_StrLoCase : TButton;


_StrUpCase : TButton;


_TrimBoth : TButton;


_TrimLeft : TButton;


_TrimRight : TButton;


_WordCount : TButton;


_Zip : TButton;