Constructia de case din lemn preturi, case din busteni preturi ieftine pentru case din busteni skazka-dom.ru.
În unele cazuri, puteți utiliza componenta Memo pentru a introduce un tablou. Componenta Memo vă permite să introduceți text care constă dintr-un număr suficient de mare de linii, astfel încât este convenabil să-l utilizați pentru a introduce o matrice de caractere. Componenta Memo este adăugată la formular în mod obișnuit. Pictograma componentă se află în fila Standard (Figura 5.3).
În tabel. Figura 5.3 prezintă câteva dintre proprietățile componentei Memo.
Tabelul 5.3. Memo proprietăți componente
Proprietatea de moștenire a proprietăților fontului formei părinte
Când folosiți Memo pentru a introduce o matrice, valoarea fiecărui element al matricei ar trebui să fie introdusă pe o linie separată și după introducerea fiecărui element al matricei, apăsați
Accesul la câmpul situat în memoria de linia de text, puteți utiliza proprietățile de linii, specificând în paranteze numărul liniei dorite (linia numerotate de la 0).
Următorul program, al cărui text este afișat în Lista 5.5, demonstrează utilizarea componentei Memo pentru a introduce o matrice de caractere.
Buclele principale ale procedurii de introducere a unei matrice de caractere din componenta Memo pot arăta astfel:
Liniile sunt proprietatea componentei Memo, care este o matrice, fiecare element al căruia conține un rând de text în câmpul Memo.
Forma programului este prezentată în Fig. 5.4. În plus față de câmpul Memo, conține un buton de comandă (Buttonl), când faceți clic pe care introduceți valorile elementelor matrice din câmpul Memo.
Fig. 5.4. Caseta de dialog pentru aplicație Introducerea unei matrice
Listing 5.5. Introducerea unui șir de rânduri din unitatea Memo fr_memo_; interfață
procedura ButtonlClick (expeditor: TObject); privat
var Formul: TForml; punerea în aplicare
procedura TForml.ButtonlClick (expeditor: TObject); const
SIZE = 5; // dimensiunea matricei
pentru i: = 1 până la n face o [i]: = FormL.Memol.Lines [i-1]; // Linile de memorie sunt numerotate de la zero
Lucrarea principală se realizează prin procedura TForml.Buttoniciick, care verifică mai întâi pentru a vedea dacă există text în câmpul Memol. Dacă textul este (în acest caz, valoarea proprietății Lines.Count este mai mare decât zero), atunci procedura compară numărul de șiruri introduse și dimensiunea matricei. Dacă acest număr depășește dimensiunea matricei, atunci programul modifică valoarea n, pregătindu-se astfel intrarea numai a rândurilor de primă mărime.
În Fig. 5.5 arată aspectul casetei de dialog pentru Introducerea unui matrice. După ce faceți clic pe butonul de comandă Enter, apare o fereastră (Figura 5.6), care conține valorile elementelor de matrice primite din câmpul Memo.
Fig. 5.5. Fereastră de aplicație Introducerea unui matrice
Fig. 5.6. O matrice introdusă din câmpul Memo