A delphi projekt felépítése
A Delphi projekt programegységek - modulok készlete. Az egyik modul a legfontosabb, tartalmazza azokat az utasításokat, amelyekből a program elindul. A fő alkalmazási modulot teljesen a Delphi alkotja.
A fő modul egy dpr kiterjesztésű fájl. A fő alkalmazási modul szövegének megtekintéséhez válassza a Projektmenü View Source lehetőséget.
Letöltés - példa egy befejezett projektre Lazarusban (91,59 MB) = 1,31 perc.
Az alábbi listában megjelenik a futássebesség-számítási program főmoduljának szövege.
1. lista. A fő alkalmazási modul a vrun program;
A fő modul a program szóval kezdődik, majd a program neve, amely egybeesik a projekt nevével. A projekt neve a projekt mentésekor van beállítva, és meghatározza a fordító által létrehozott program futtatható fájljának nevét. A használt szó a felhasznált modulok nevét használja: az Űrlapkönyvtár modul és a vrunl.pas űrlapmodul.
A fő modul futtatható része a kezdő és a vég utasítások között van. A végrehajtható rész utasításai megadják az alkalmazás inicializálását és a start ablak kimenetét.
A fő modulon kívül minden program tartalmaz legalább egy űrlapmodult, amely tartalmazza az alkalmazás kezdő űrlapjának leírását és az azt támogató eljárásokat. A Delphi-ban minden formának van saját modulja.
Az alábbi listában megjelenik a futási sebesség számítási modul szövege.
2. jegyzék. A programmodul.
Windows, Üzenetek, SysUtils, Változatok, Osztályok,
Grafikák, vezérlők, űrlapok, párbeszédpanelek, StdCtrls;
TForm1 = osztály (TForm) Edit1: TEdit;
Edit2: TEdit; Címke1: TLabel;
Címke2: TLabel; Label3: TLabel;
eljárás ButtonlClick (Feladó: TObject);
procedúra Button2Click (Sender: TObject);
// nyomja meg a Számítás gombot
eljárás TForm1.ButtonlClick '(Feladó: TObject);
ker. integer; // Távolság, méter
t: valós; // idő tört számként
min. integer; // idő, perc
sek. integer; // idő, másodperc
// szerezzen be a forrásadatokat a beviteli mezőkből
dist: = StrToInt (Edit1.Text); t: = StrToFloat (Edit2.Text);
min: = Trunc (t); // a percek száma a t számának egésze
sek: Trunc (t * 100) mod 100; // a másodpercek száma törtrész
v: = (dist / 1000) / ((min * 60 + sek) / 3600);
label4.Caption: = 'Távolság:' + Szerkesztés1.Text + 'm' + # 13
+ 'Idő:' + IntToStr (min) + 'min'
+ IntToStr (sek) + 'sec' + # 13 +
'Sebesség:' + FloatToStrF (v, ffFixed, 4,2) + km / óra ';
// kattintson a Befejezés gombra.
eljárás TForm1.Button2Click (Sender: TObject)
A modul a szóegységgel kezdődik, majd a modul neve. Ez a név szerepel a használt modulok listáján a fő alkalmazásmodul felhasználási záradékában, amelynek szövegét az OT listában sorolják fel.
A modul az alábbi részekből áll: