Delphi dasturlash tilida qiziqarli dastur tuzishni o'rganamiz

Xozir siz bilan birgalikda delphi dasturlash tilida qiziqarli dastur tuzishni o'rganib chiqamiz!

1. Delphi uchun birorta IDE ni ishga tushiramiz.

2.Yangi Application hosil qilamiz.

3.Formaga bitta Button, bitta Listbox tashlaymiz.

4.Form1 ning FormCreate xodisasiga quyidagicha kod yozamiz.

FormCreate Kodi : 

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.Items.Add('Delphi');
  Listbox1.Items.Add('c++');
  ListBox1.Items.Add('daSTurLash');
  ListBox1.Items.Add('Buyuk dasturchilar');
end;

5.Buttonning Click xodisasiga esa quyidagicha kod yozamiz.

Button1Click Kodi :

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to ListBox1.Items.Count - 1 do
    ListBox1.Items[I] := UpperCase(ListBox1.Items[I]);
end;

Agar siz kodlarni o'qiy olgan bo'lsangiz, siz bu dasturni nima qilishini oldindan

bilgan bo'lasiz. Bu dasturda ListBox da turgan yozuvlarni barchasini katta shriftga

o'tkazadi.

Bu algoritm bilan dasturlash mobaynida ko'p masalalarni ishlash mumkin

(Button uchun yozilgan kod orqali demoqchiman). Masalan Kirill-Lotin & Lotin-Kirill

o'giruvchi dastur tuzish mumkin, buning uchun esa siz faqatgina fikrlay olishingiz

kerak ;)