428______________________________________________ 7 !

 EditLetNum.cpp:

static inline void ValidCtrCheck(TEditLetNum *)

new TEditLetNum(NULL);

}

//-

_fastcall TEditLetNum::TEditLetNum(TComponent* Owner)

: TEdit(Owner)
{
FEnableLet = true;

FEnableNum = true;

FModified = false;

1

//-

namespace Editletnum
(

void _fastcall PACKAGE Register()
(

TComponentClass classes[l] = {_classid(TEditLetNum)};

RegisterComponents("MyComponents", classes, 0) ;

}
)
//-

void   fastcall TEditLetNum::SetEnableNum(bool AEnableNum)
f

//   FEnableNum
FEnableNum = AEnableNum;

//   FEnableNum  FEnableLet = false,
//   FEnableLet  true

if (! AEnableNum)
if (! FEnableLet) FEnableLet = true;

)

//-

void _fastcall TEditLetNum::SetEnabieLet(bool AEnableLet)

{

//   FEnableLet

FEnableLet = AEnableLet;

//   FEnableNum  FEnableLet = false,
//   FEnableNum  true
if (! AEnableLet)
if (! FEnableNum) FEnableNum = true;

}

void _fastcall TEditLetNum::Clear()
{
bool CanClear = true;

if (OnClear) OnClear(this,CanClear);

if (CanClear)
{

TEdit::Clear();     //   
FModified = false;

}

void _fastcall TEditLetNum::KeyPress(char &Key)
(

Set <char, '0', '9'> Dig;

Dig  '0'  '!'  '2'  '3'  '4'  '5'
 '6'  '7'  '6'  '9';