Proiectul Delphi este un set de unități de program - module. Unul dintre module este cel principal, conține instrucțiunile din care începe programul. Modulul principal de aplicare este complet format de Delphi.
Modulul principal este un fișier cu extensia dpr. Pentru a vedea textul modulului principal de aplicație, selectați Vizualizare sursă din meniul Proiect.
Descărcare - un exemplu de proiect finalizat în Lazăr (91,59 MB) = 1,31min.
În lista de mai jos, este afișat textul modulului principal al programului de calcul al vitezei de rulare.
Lista nr. 1. Modulul principal de aplicație este programul vrun;
Modulul principal începe cu programul de cuvinte, urmat de numele programului, care coincide cu numele proiectului. Numele proiectului este specificat în momentul proiectului neniya conservate, și se specifică numele de compilator generat fișierul executabil. Cuvântul utilizează numele modulelor utilizate: modulul de bibliotecă Forms și modulul formularul vrunl.pas.
Partea executabilă a modulului principal se află între instrucțiunile de început și de sfârșit. Instrucțiunile pentru partea executabilă furnizează inițializarea aplicației și ieșirea ferestrei de pornire.
Pe lângă modulul principal, fiecare program include cel puțin un modul de formular care conține o descriere a formularului de pornire al aplicației și a procedurilor care o susțin. În Delphi, fiecare formular are un modul propriu.
În lista de mai jos este afișat textul modulului de calculare a ratei de derulare.
Numărul de înregistrare 2. Modulul programului.
Windows, Mesaje, SysUtils, Variante, Clase,
Grafică, Controale, Formulare, Dialoguri, StdCtrls;
TForm1 = clasă (TForm) Edit1: TEdit;
Edit2: TEdit; Etichetă1: Tabel;
Label2: Tabel; Etichetă3: Tabel;
procedura ButtonlClick (expeditor: TObject);
procedura Button2Click (expeditor: TObject);
/ / apăsați butonul Calculate
procedura TForm1.ButtonlClick '(Expeditor: TObject);
dist. întreg; // Distanța, metri
t: real; // timpul ca număr fracționat
min. întreg; // timp, minute
sek. întreg; // timp, secunde
// obțineți datele sursă din câmpurile de introducere
dist: = StrToInt (Edit1.Text); t: = StrToFloat (Edit2.Text);
min: = Trunc (t); // numărul de minute este numărul întreg al numărului t
sec: = Trunc (t * 100) mod 100; // numărul de secunde reprezintă o parte fracționată
v: = (dist / 1000) / (min * 60 + sec) / 3600);
label4.Caption: = 'Distanță:' + Edit1.Text + 'm' + # 13
+ 'Timp:' + IntToStr (min) + 'min'
+ IntToStr (sec) + 'sec' + # 13 +
Viteza: + FloatToStrF (v, ffFixed, 4,2) + km / oră;
/ / faceți clic pe butonul Finalizare.
procedura TForm1.Button2Click (expeditor: TObject)
Modulul începe cu unitatea de cuvinte, urmată de numele modulului. Acest nume este menționat în lista modulelor utilizate în clauza de utilizare a modulului principal de aplicație, textul căruia este enumerat în lista OT.
Modulul cuprinde următoarele secțiuni:
Articole similare
Trimiteți-le prietenilor: