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; procedure TForml.ButtonlClick(Sender: TObject); Var z2, z:Longlnt;s:String; begin z2:= StrToInt(Editl.Text); z:= zl*z2; s:= IntToStr(z); With labell.Font do begin
