Қоршаған ортаны модельдеуде сапалы мүмкіндіктерге ие, сезімдік тұрғыдан түсініктіұғымдар жиынтығы негізінде құрылады, алдын ала жазылып қойған программа кодын көп рет қолдануға мүкіндік береді

Ол үшін формаға төмендегідей компоненттерді орналастырайық.

Мұндағы Edit1 компоненті аргументті енгізуге, Memo1 компоненті нәтижені шығаруға, ал Button1 компоненті оқиғаға жауапты қалыптастыруға, яғни негізгі есептеу операциясын орындауға арналған. Программа мәтіні төмендегідей:

...

Tyрe

Label1:Tlabel;

Edit1:Tedit;

Memo1:Tmemo;

Button1:Tbutton;

Label2:Tlabel;

Procedure TForm1.Button1Click(Sender:TObject);

…

Procedure TForm1.Button1Click(Sender:TObject);

Begin

x:=strtoint(edit1.Text); {edit1 өрісіне енгізілген мәтінді бүтін санға айналдырып, х айнымалысына меншіктеу}

y:=x div 1000; p:=p*y;

y:=(x div 100) mod 10; p:=p*y;

y:=(x mod 100) div 10; p:=p*y;

y:=x mod 10; p:=p*y;

memo1.Clear; {memo1 өрісін тазалау}

memo1.Lines.Add(inttostr(p)); end; end.

терезесі.

Алдымен, программаның орындалуына байланысты екі мәселені қарастырайық.

1. Программада әрбір операндаға енгізу қалай жүзеге асырылады;

2. Егер пайдаланушы жазудан қате жіберсе не болады?

Бірінші мәселе бойынша біздің программада edinput деп аталатын бір ғана енгізу жолы және Bbrun бір батырмасы бар ( Bbclose батырмасы программа жұмысын тоқтату үшін қолданылады). Есептеуді басқа жолмен де ұйымдастыруға болады. Ең оңай жолы формаға тағы бір батырма қосу қажет. Бірінші, батырманы тышқанмен белгілеу – енгізу жолында 1-операнданың дайын болғанын білдіреді, екінші рет басуда – 2-операнда дайын, нәтижені есептеуге болады.

Сонымен, Bitbtn деген жаңа батырма орналастырамыз, ол Bbrun батырмасын толық жабатындай болуы тиіс, жаңа батырманы Name→Bbresult деп атаймыз, оған Kind-bkok және ол уақытша көрінбейді, қасиетке Visible-False мәнін береміз. Осындай дайындықтан кейін жұмыс басында жаңа батырма көрінбейді, Bbrun батырмасының басылуына кедергі жасамайды.