Навчальна програма переведення дійсних чисел з 2,8,10,16 у 2,8,10,16 системи числення

}

//обробник подій, в нього передається константа команди, у відповідь на неї

//запускається функція, яка відповідає цій константі

void TProgApp::handleEvent( TEvent& event )

{

struct DialogData * DataPtr;

TApplication::handleEvent( event );

ushort control;

if( event.what == evCommand )

{

switch( event.message.command )

{

case CalcCmd:

clearEvent( event );

while(calculator()==cmOK);

break;

case InfoCmd:

Info();

clearEvent( event );

break;

case HelpCmd:

Help("help\\help.txt");

clearEvent( event );

break;

case Bin2OctCmd: