pentru i: = 1 până la 5 nu
Suma elementelor: + + IntToStr (summ) + # 13 +
'Media aritmetică:' + FloatToStr (sr);
end. După derularea procesului de program există dorința de a face schimbări în procesul de intrare în matrice. De exemplu, ar fi bine dacă cursorul se va muta automat în celula următoare a mesei, de exemplu, ca urmare a apăsării unei taste. Puteți face acest lucru cu ajutorul procedurii de procesare a evenimentului O nKeyPress. Puteți aloca sarcina de a filtra tabelele de date introduse în celulă în aceeași procedură. În cazul nostru, trebuie doar să introduceți numere în celulă. Textul procedurii de procesare a evenimentului OnKeyPress este afișat în Lista 5.3. Ar trebui să acordați atenție proprietății Col, care, în timpul executării programului, conține numărul coloanei în tabelul în care este localizat cursorul. De asemenea, puteți utiliza această proprietate pentru a muta cursorul în celula de tabelă dorită. Cu toate acestea, trebuie să țineți cont de faptul că coloanele tabelului, la fel ca și rândurile, sunt numerotate de la zero. Listing 5.3. Procedura de procesare a evenimentului OnKeyPress
procedura TForm1.StringGridlKeyPress (expeditor: TObject; var Key: Char);
# 8, '0' .. '9'. ; // numere și o cheie
# 13: // cheie
dacă StringGrid1.Col apoi StringGrid1.Col: = StringGrid1.Col + 1; alt cheie: = Chr (0); // nu sunt permise alte caractere se încheie; Dacă doriți să introducă o serie de numere în virgulă mobilă (a: array [1..5] real) .., apoi procedura eveniment onkeypress mai complicat, astfel încât în plus față de cifrele unui caracter valid este un delimitator (virgulă sau perioada, care - în funcție de setarea Windows) și minus. Pentru a oferi un program pentru utilizator ușurința poate aplica truc substitut incorect inserarea delimitator adevărat utilizator. Determinați care caractere de separare a permis în setarea curentă pentru Windows, vă puteți adresa DecimalSeparator variabilă la nivel mondial. În lista 5.4 se afișează textul modulului de aplicație pentru introducerea și prelucrarea unui număr numeric fracționat. Procedura de procesare a evenimentului OnKeyPress oferă o intrare în celula tabelară permisă numai atunci când scrieți un număr fracționat de caractere. Listing 5.4. Introducerea și procesarea unei serii de numere fracționate Ferestre, Mesaje, SysUtils, Variante, Clase, Grafica, Controale, Formulare, Dialoguri, Grile, StdCtrls;
Articole similare
Trimiteți-le prietenilor: