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

//функція,що виводить на екран діалогове вікно з інформацією про програму

void TProgApp::Info()

{

TDialog *d = new TDialog(TRect( 14, 5, 66, 16 ), "Iнформацiя про програму" );

d->insert( new TStaticText( TRect( 3, 1, 48, 10 ), "Курсова робота з П.О.М.П.\nстудента групи КН-119, IКНI, кафедра IСМ\nГайдiна В.А. aka Mace Windu\n\"Навчальна програма переведення дiйсних чисел з 2,8,10,16 у 2,8,10,16 системи числення\"" ) );

d->insert( new TButton( TRect( 39, 8, 49, 10 ), " OK ", cmCancel, bfNormal ) );

deskTop->execView( d );

destroy(d);

}

//функція, що виводить на еран вікно з текстом, записаним у файлі, ім’я якого //передається у неї як параметр char * fname

void TProgApp::Help(char * fname)

{

char s[256];

int y=1;

FILE * f;

f=fopen(fname,"r");

TDialog *d = new TDialog(TRect( 0, 0, 56, 20 ), "Довiдка про переведення числа" );

while(fgets(s,255,f)!=NULL)

{

d->insert( new TStaticText( TRect( 1, y, 55, y+1 ), strdup(s) ) );

y++;

}

d->insert( new TButton( TRect( 1, 17, 9, 19 ), "OK", cmCancel, bfNormal ) );

deskTop->execView( d );

destroy(d);