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';