InputBox және ShowMessage диалогтық терезелері

Мәліметтерді экранға шығару функциясы ShowMessage().

Мәліметті енгізу функциясы InputBox("тақырыбы","түсініктеме","")

Мысал №1. InputBox және ShowMessage диалогтық терезелері арқылы апта күнін санды түрде енгізгенде сол апта күнінің атын экранға шығаратын бағдарлама құру.

void __fastcall TForm1::FormCreate(TObject *Sender)

{

String n;

n=InputBox("Енгізу терезесі","Апта номерін енгіз","");

m=StrToInt(n);

switch(m)

{

case 1: ShowMessage("Дуйсенбі"); break;

case 4: ShowMessage("Бейсенбі"); break;

case 5: ShowMessage("Жума"); break;

case 6: ShowMessage("Сенбі"); break;

case 7: ShowMessage("Жексенбі"); break;

default: ShowMessage("1..7 аралыгын енгіз");

} }