unit Unitl; interface uses Windows,Messages,SysÜtils,Classes,Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForml = class (TForm) Editl: TEdit; Edit2: TEdit; Buttonl: TButton; Labell: TLabel; procedure ButtonlClick (Sender: TObject);Labell: TLabel; procedure ButtonlClick (Sender: TObject);private { Private declarations }public { Public declarations } end;var Forml: TForml; implementation {$R *.DFM}procedure TForml.ButtonlClick(Sender: TObject);Var z: Longlnt; zl, z2, s: String;beginzl:= Editl.Text;z2:= Edit2.Text; z:= StrToInt(zl)*StrToInt(z2);s:= IntToStr(z);With labell.Font do begin Name:= 'Courier'; Size:= 16; Color:= clRed;Style:= [fsBold]; end; Label1.Capt ion:=S; end;end. Burada, zl, z2 və z dəyişənləri tam tipli (Longlnt), s isə sətir tipli (String) elan edilir. Ona görə də bu proqram yalnız tam ədədlərin hasilini hesablayacaqdır və onluq kəsr ədədlər daxili etmək olmaz. Editl və Edit2 mətn sahələrindən daxil edilən ədədlər sətir tipdən tam ədədlərə çevrilərək (StrToInt) vurulur və hasil - z yenidən (bu dəfə tərsinə) tam ədəddən sətir tipə çevrilir (IntToStr, Əlavəyə bax). Button düyməsini basdıqda nəticə qırmızı rəngli, 16 punktluq, yarımqalın, Courier şrifti ilə Label yazısı üzərində təsvir edilir. İ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
