İndi isə həmin məsələni vuruqlan bir mətn sahəsindən daxil etməklə həll edək. Misal. Vuruqları bir mətn sahəsindən daxil edən kalkulyator. Məsələnin xüsusiyyəti ondan ibarətdir ki, biz yuxandakı proqramda zl:= Editl.Text; z2: = Editl.Text; yazaraq eyni bir mətn sahəsindən növbə ilə müxtəlif ədədlər daxil etdikdə, zl və z2 dəyişənləri həmişə bir-birinə bərabər olacaqdır. Artıq bildiyiniz kimi, ənənəvi proqramlaşdırmada, məsələn, Turbo Pascal dilində read(zl); read(z2); yazıldıqda dəyişənlərə müxtəlif qiymətlər daxil edilir. Burada isə belə deyildir. Odur ki, eyni bir sahədən iki müxtəlif qiymət daxil etmək üçün redaktorun Enter klavişinə reaksiyavermə prosedurundan və dəyişənin (zl) qlobal tipli elan edilməsindən istifadə edəcəyik. Beləliklə, həll edəcəyimiz məsələnin yuniti belə olacaqdır: unit Unitl; interface uses Windows,Messages,SysUtils,Classes,Graphics, Controls,Forms,Dialogs,StdCtrls,ExtCtrls; type TForml = class(TForm) Editl: TEdit; Buttonl: TButton; Labell: TLabel; procedure ButtonlClick(Sender: TObject); procedure EditlKeyPress(Sender: TObject; var Key: Char); private { Private declarations } public { Public declaraticns } end; var Forml: TForml; zl: Longlnt; // Qlobaldəyişən implementation {$R *.DFM} // Klaviaturanın Enter klavişinə reaksiyası procedure TForml.EditlKeyPress(Sender:TObject; var Key: Char); begin if Key= #13 then begin Key:= #0; Editl.SetFocus; zl:= StrToInt(Editl.Text);Editl.Clear; end; end;
