Mai întâi de toate, trebuie să ne declare matricea (adică, scrie-i numele). Numele matricei este:
<Имя_Массива>: Array [<область_определения>] din <Тип_переменных>
Elementele de identificare Array și of sunt constante, deci trebuie să fie specificate în orice caz. Numele matricei depinde numai de imaginația ta. Domeniul definiției este [X..Y]. unde prima valoare este cea mai mică valoare a numărului de parametri ce trebuie determinat, al doilea este cel mai mare. Rețineți că această proprietate este indicată în paranteze pătrate - de fapt valorile lui X și Y intră în domeniul definiției matricei. Repet că aceste valori definesc numerele de secvență ale valorilor stocate în matrice și sunt destinate citirii acestora ("tragerea" din matrice) prin specificarea numărului de serie. X și Y pot fi numere prime. Ele pot fi, de asemenea, părți dintr-un întreg ordonat: de exemplu, puteți specifica ['a' .. 'i']. iar matricea va consta din treizeci și trei de valori (prin numărul de litere ale alfabetului).
Mai mult, după identificatorul tipului de variabile, în care sunt stocate datele din matrice. Dacă este Boolean, atunci orice parametru poate avea doar valoarea True sau False. Dacă Integer - atunci același parametru este un număr prime, etc.
Acum vom declara o matrice în conformitate cu toate regulile:
EditArray: Array [1..5] din String
Puteți citi următoarele cu un ochi liber: există un matrice numit EditArray, în care sunt stocate cinci valori diferite de tip String (text). Se pare că totul este corect :). Dar această matrice este goală: nu există date în ea încă. Acum îl folosim pentru a ne aminti informațiile despre șir conținute în TEdit și, când este necesar, pentru ao obține.
EditArray: Array [1..5] de String;
// scrieți informațiile într-un matrice
procedura TForm1.GetBtnClick (expeditor: TObject);
// sortați toate componentele
pentru i: = 0 până la ComponentCount-1
dacă componentele [i] sunt TEdit atunci
// citiți informațiile din matrice
procedura TForm1.SetBtnClick (expeditor: TObject);
pentru i: = 0 până la ComponentCount-1
dacă componentele [i] sunt TEdit atunci
Acum, introduceți un text în Edit și apăsați GetBtn. Ștergeți textul și apăsați ResultBtn.
Aha! Așa că am lucrat cu matricea declarată. Dar trebuie să ținem cont de faptul că există, de asemenea, o mulțime constantă cu valori scrise inițiale care nu pot fi schimbate. Astfel de matrice sunt scrise în secțiunea const. Acestea sunt utile când trebuie să efectuați multe operații la nivel scăzut.
procedura TForm1.Button1Click (expeditor: TObject);
RusSymbols: Array [1..10] din ShortString = (a, c, o, p, x, a, c, o, p, X ');
EngSymbols: Array [1..10] din ShortString = (a, c, o, p, x, a, c, o, p, X ');
i, poziție: întreg;
// Matricea este compusă din zece caractere,
Trimiteți-le prietenilor: