Тажриба иши. Borland Delphi дастурлаш тизимида ишлаш асослари. Ишдан максад: Borland Delphi

4. Катта ўлчамдаги форма дастурни ишга туширганда чакирилади. Иккинчи форма эса «Хисоблаш!!!» тугмасини босиш оркали чакирилади.

5. TForm1.Botton1Click процедурасининг тахрирлаш ойнасига ўтинг. Тугмачани босгандан сўнг дастур кўрсатилган белги киритилган матнда неча марта такрорланганлигини хисоблайди ва натижани чикариш формасига узатади.


21-расм. Намунадаги формалар.

6. 
   6. Белгиларни хисоблаш алгоритми куйидагича амалга оширилади: каторда кидирилаётган биринчи белгини топиш, хисоблагични биттага ошириш, каторни топилган белгигача кискартириш. Бу амалларни катор тугагунча такрорлаш. Хисоблаш процедураси куйидагича:
   

procedure TForm1.Button1Click(Sender: TObject);
var st :string;
i,j:integer;
begin
j:=0;
st:=self.memo1.Lines.Text;
if(length(self.Edit1.Text)=0 ) then
{Каторда кидирилаётган белги бор ёки йўклигини тешкириш}
begin
Application.MessageBox('Кидирилаётган белгини киритинг','Огоҳлартириш',MB_OK);
exit;
end;
i:=pos(self.Edit1.Text[1],st);
{Кидирилаётган белгининг позициясини аниклаш}
while (i>0) do
begin
inc(j); {счетчик ошириш}
st:=copy(st,i+1,length(st)-i);
{каторни кесиб оламиз}
i:=pos(self.Edit1.Text[1],st);
end;
form2.Label1.Caption:='Кидирилаётган белги сони - '
+inttostr(j);
form2.showmodal;
{Натижани акс эттириш учун формани ишга тушириш}
end;

7. 
   7. Проектни сакланг ва уни ишга туширинг. Натижани кузатинг.
   

Мустакил иш

1. 
   1. Янги проект тузинг (File\New……….\Application).
   
2. 
   2. Проектни ўзингизнинг папкангизга Lab3b номи билан сакланг.
   
3.