Mirsaid Aripov, Nurillo Otaxanov

Modullardan foydalanish. U yoki bu moduldagi funksiya va protseduralardan foydalanish mumkin bo`lishi uchun, ular nomini loyixaga qo`shish va modullar ro`yxatida ko`rsatib qo`yish talab qilinadi.

8.8-listingda Dala hovliga berib kelish qiymati dasturi matnining yangi modulli varianti keltirilgan. OnKeyPress protsedurasi boshlang’ich ma`lumotlarmi kiritish uchun IsFloat funksiyasiga murojaat qiladi. Bu funksiya yangi_modul modulida joylashgani uchun modullar ro`yxatiga bu modulning nomi kiritilgan.

Listing 8.8. Yangi moduldagi funksiyadan foydalanish

unit dala1;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, yangi_modul;

type

....

// tugmani Masofa oynasida bosish

procedure TForm1.EditlKeyPress(Sender:TObject; var Key:Char);

begin

if Key = Char(VK_RETURN)

then Edit2.SetFocus // kursorni NARX oynasiga o`tkazish

else

If not IsFloat(Key,Edit2.Text) then Key := Chr(0);

end;
// NARX maydonida tugmani bosish

procedure TForm1.Edit2KeyPress(Sender:TObject; var Key:Char);

begin

if Key = Char(VK_RETURN)

then Edit3.SetFocus // kursorni harajat maydoniga o`tkazadi

else If not IsFloat(Key,Edit2.Text)

then Key := Chr (0);

end;

// tugmani XARAJAT maydonida bosish

procedure TForm1.Edit3KeyPress(Sender:TObject; var Key:Char);

begin

if Key = Char(VK_RETURN) then

Button1.SetFocus //XISOBLASH tugmasini faollashtirish

else If not IsFloat(Key,Edit2.Text) then Key := Chr (0);

end;

// XISOBLASH tugmasi bosilganda

procedure TForm1.Button1Click(Sender: TObject);

var

masofa : real; // masofa

narx : real; // narx

harajat : real; // 100 km ga sarf

summ : real; // summa

mes: string;

begin

masofa := StrToFloat(Edit1.Text);

narx := StrToFloat(Edit2.Text);

harajat := StrToFloat(Edit3.Text);

summ := masofa / 100 * harajat * narx;

if CheckBox1.Checked then summ := summ * 2;

mes := 'Dala hovliga borish';

if CheckBox1.Checked then mes := mes + ' va qaytib kelish';

mes:=mes+FloatToStrF(summ, ffGeneral,10, 2)+' sumga tushadi';

Label4.Caption := mes;

end;

end.

Modul nomini ilovada foydalanilayotgan modullar ro`yxatiga qo`shilgandan so`ng, modulning o`zini loyixaga qo`shib qo`yish lozim. Buning uchun Project→Add to Project buyrug’I chertiladi. So`ngra ochilgan oynadan modul fayli nomi tanlanadi. Natijada muharrir oynasida loyixaga qo`shilgan modul matni paydo bo`ladi. Shundan keyin dastur matnini kompilyatsiya qilish mumkin.