Delphi permite programatorului să își plaseze funcțiile și procedurile într-un modul separat și apoi să utilizeze procedurile și funcțiile modulului în programele sale, specificând numele modulului în lista de module cerută de program (utilizează clauza).
Listing 6.7. Modul de șablon
Modulul începe cu o instrucțiune unitate antet, care specifică numele modulului. Când modulul este salvat, acest nume va fi automat schimbat la numele specificat de programator.
În secțiunea de implementare, trebuie să plasați procedurile și funcțiile declarate în secțiunea interfață.
De exemplu, în lista 6.8 se afișează modulul programatorului, care conține funcțiile IsInt și isFioat considerate anterior.
Listing 6.8. Modulul programatorului
// folosind acest modul
funcția IsInt (char char). boolean;
// funcția Islnt verifică dacă caracterul este
// valid atunci când introduceți un număr întreg
funcția IsFloat (char. st: string): Boolean;
// Funcția IsFloat verifică dacă caracterul este valabil
// la momentul intrării unui număr fracționat
// ch este următorul personaj
// st - caracterele introduse deja
// verificați dacă caracterul este valabil
// când introduceți un număr întreg
funcția Islnt (char char). boolean;
sau (ch = # 13) // cheie
sau (ch = # 8) // cheie
apoi Islnt: = True // caracterul este valabil
altfel Islnt: = False; // caracter nevalid
// verificați dacă caracterul este valabil
// la momentul intrării unui număr fracționat
funcția IsFloat (ch. char; st: string). boolean;
// ch - următorul caracter // st - caracterele introduse deja
sau (ch = # 13) // cheie
sau (ch = # 8) // cheie
IsFloat: = adevărat; // caracter adevărat
Exit; // ieșiți din funcție
'-': dacă Lungimea (st) = 0 atunci IsFloat: = Adevărat; '':
și (st [Lungime (st)]> = '0') și (st [Lungime (st)] <= '9')
apoi // delimitatorul poate fi introdus numai după cifră
// și dacă nu este deja introdus
IsFloat: = adevărat; altceva // nu sunt permise alte caractere
IsFloat: = False; capăt
// aceasta este secțiunea de inițializare // nu conține instrucțiunea de sfârșit în acest caz.
Modulul este salvat în mod obișnuit, adică selectând comanda Salvare din meniul Fișier. Cu toate acestea, pentru modulele de proceduri și funcții reutilizabile, este mai bine să creați un folder separat, numindu-l, de exemplu, Unități.
Articole similare
Trimiteți-le prietenilor: