Калькулятор курилмасини Delphi дастурлаш тилида яратиш

3. Объектни курсатиш 
Объектни курсатиш бунда олинган барча буйрукли тугмачаларни курсатади. 
4. Объекни узгартириш
Объекни узгартириш олинган хар бир тугмача ёки формга ном куйиш ва узгартиради.Энди баъзи ?ийматларни
?згартириш учун объекни ?згартириш ойнасининг унг томонини босинг “Caption” (Сарлав?а) кўрсаткичига “Менинг
биринчи дастурим” матнни киритинг.

---

5. Формни узгартириш 
Формга тугмачалар урнатилади ва улар устида иш олиб борилади. Жи?озли инструментларда тугма белгисини
босинг, бунда у босилган ?олат ?олсин. Тугмачани шаклга жойлаштириш учун шаклнинг бирор жойида босинг ва
тугма чегарасини пастга чўзинг. Ўлчовни ўзгартириш маркёрларидан фойдаланиб, тугма ўлчамларини ўзгартириш
учун уни босинг ва сич?ончанинг чап тугмаксини босилган холатда тугмани шаклнинг керакли жойига суринг.
6. Дастур критиш.
Дастур критиш бунда паскал тилида ёзиладиган барча буйруклардан файдаланилади яъни паскал тилининг
яхшиланган версияси. Delphi да дастур тузишда бу каби ?аракатларга жавоблар жуда му?им роль уйнайди. Дастур
яратиш жараёнида сиз маълум бир ?одисага нисбатан жавоб сифатидабажариладиган йўри?нома ёзасиз. Буларнинг
барчасини амалда текшириб кўриш учун шаклга тугмани киритинг ёки олдинги булимдаги мисолдан фойдаланинг.
Кейинги ?адамда сич?онча тугмасини икки марта босинг. Delphi код мухаррирининг маълум кетма-кетликда ёзилган
Ушбу матнни очади:
Бу матн сатрлар орасига ўз кодингизни киритишингиз мумкин бўлиб, у сич?онча тугмасини босилганда бажарилади.

---

7. Delphi арифмометрни.
Мазкур булимнинг кизикарли томонишундаки, сиз аник вазифани бажарувчи дастур яратасиз: у иккита сонни
кушади ва йигиндисини чикаради. Бу мисолда янги объект- билан ишлаймиз.
Энди дастурнинг ишлашини текшириб кўринг. F9 тугмасини босинг. ?ар бир матн ойнасида сонни ёзинг ва ?ўшиш
натижасини акс эттириш учун “Сонларни ?ўшиш” тугмасини босинг. 
8. Калькулятор курилмасига дастур критиш.
Калькулятор курилмасини яратиш учун жихозли инструментлардан 
фойдаланиб Button тугмачаси ва Edit тугмачаларни сичконча тугмачаси билан олиб формга урнатамиз. Хар бир
урнатилган тугмачаларга дастур критамиз.

---

Хар бир тугмача устига сичконча чап тугмасини икки марта босамиз. 
Тугмачаларнинг хар бирига дастур киритамиз.
var
Form1: TForm1;
a,b,s:integer;
t:string;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
t:='j';
end;

---

procedure TForm1.Button1Click(Sender: TObject);
begin
if t='' then
else
begin
if length(Edit1.Text)<8 then Edit1.Text:=Edit1.Text+'1';
end;
b:=strtoint(edit1.Text);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if t='' then
else
begin
if length(Edit1.Text)<8 then Edit1.Text:=Edit1.Text+'2';
end;
b:=strtoint(edit1.Text);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if t='' then
else
begin
if length(Edit1.Text)<8 then Edit1.Text:=Edit1.Text+'3';
end;
b:=strtoint(edit1.Text);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
a:=StrToInt(Edit1.text);
t:='+';
edit1.text:='';
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
if t='+' then
edit1.Text:=inttostr(a+b);
if t='-' then

---

 edit1.Text:=inttostr(a-b);
if t='*' then
edit1.Text:=inttostr(a*b);
if t='/' then
edit1.Text:=floattostr(a/b)
else exit;
end;
end.