• Program Project1; Uses Forms, Unit1 in ‘Unit1.pas’ {Form1} {$R *.res} Begin Application.Initialize;
  • Delphi loyihasi strukturasi




    Download 3,21 Mb.
    bet5/12
    Sana20.01.2024
    Hajmi3,21 Mb.
    #141877
    1   2   3   4   5   6   7   8   9   ...   12
    Bog'liq
    401 guruh Axmadjonova kurs ishi

    Delphi loyihasi strukturasi


    Delphi dasturi - bu bir necha bir biri bilan boғliq fayllardir. Har qanday dastur .dpr kengaytmali loyiha fayli va bir yoki bir necha .pas kengaytmali modullardan tashkil topadi. Loyiha fayli dasturchi tamonidan kiritilmaydi, u foydalanuvchining ko’rsatmalari asosida avtomatik ravishda Delphi sistemali dasturi tamonidan tuziladi. Loyiha fayli matnini ko’rish uchun Project/View Source buyruғini berish zarur. Loyiha matni umumiy holda quyidagicha bo’lishi mumkin.
    Program Project1;
    Uses
    Forms,
    Unit1 in ‘Unit1.pas’ {Form1}
    {$R *.res}
    Begin
    Application.Initialize;
    Application.CreateForm(Tform,Form1);
    Application.Run;
    End.
    Loyiha nomi dasturchi tomonidan loyiha faylini saqlash vaqtida beriladi, va u Delphi muhitida bajariluvchi fayl, ya’ni kengaytmasi .exe bo’lgan faylni tashkil qilishni aniqlaydi. Loyiha faylidan keyin ishlatiladigan modullar: standart modullar Forms va Unit1 joylashadi. {$R *.res} direktivasi kompilyatorga ishlatilishi kerak bo’lgan rusurs fayllari, masalan dasturlarni elon qilish kerakligini bildiradi. Yulduzcha belgisi resurs faylining kengaytmasi .res ekanligini bildiradi. Bosh modulning bajariluvchi qismi Begin .. End operatorlari orasiga joylashadi.
    Modul - bu biror bir dastur. Modullar standart konstruksiyaga ega. Object Pascalda modul strukturasi umumiy holda quyidagi ko’rinishda bo’ladi:
    Unit
    Interfase
    Implementation
    Initialization
    Finalization
    End.
    Delphi tizimini ishga tushirgandan keyin modul strukturasi quyidagi ko’rinishda bo’ladi.
    Unit unit1;
    Interface
    Uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
    Forms, Dialogs;
    Type
    TForm1 = class(TForm)
    Private
    { Private declarations }
    Public
    { Public declarations }
    end;
    Var
    Form1: TForm1;
    Implementation
    {$R *.dfm}
    End.

    Download 3,21 Mb.
    1   2   3   4   5   6   7   8   9   ...   12




    Download 3,21 Mb.