Class TForm1 (unit TestStr1) |
Inherits from
TForm
(c) 1998 Jaro Benes, All Right Reserved
Test program for specific routines from jbStr.Pas module
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);
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;
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);
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;