Lecția 6 - Arrayuri unidimensionale
Imaginați-vă un tren care are un anumit număr de remorci. Fiecare masina are un numar si in fiecare, o masina numita poate stoca informatii. Acum, matricea arată astfel, dar nu este un tren :) Matricea este scrisă în aceeași locație unde scriem variabilele uzuale.
Sintaxă: Deschideți acum Delphi și plasați componenta Buton pe formular. Etichetă și memorie. Componenta Memo se află pe locul 6 din fila Standard.
Componenta Memo are o proprietate numită Linii. Este similară cu proprietatea Caption a componentei Label. Găsiți această proprietate în Inspectorul de obiecte și faceți clic pe butonul cu trei puncte:
În etichetă: Acum, pentru a afișa toate cele 3 valori în Memo. trebuie să utilizați buclă For. Întrucât o singură linie este executată în corpul bucla, puteți să omiteți începutul și sfârșitul cuvintelor cheie.
Șirul Memo1.Lines.Add (mas [i]); la prima rundă a buclei, adaugă primul element al matricei la memo, deoarece variabila i este 1. În cel de-al doilea cerc, variabila i este 2 și șirul Memo1.Lines.Add (mas [i]); va adăuga al doilea element al matricei. În mod similar, cu al treilea.
Vederea generală a programului: Fără un ciclu Pentru ieșirea elementelor matricei se va face în acest fel: Avem mult timp să copiem și să schimbăm numărul elementului, dacă există o sută și uneori mai mult de o mie! Ciclul ajută și la acest lucru, numai la prețul a două linii.
Aceasta incheie lectia, dar inainte, salveaza programul, pentru ca vom avea nevoie de el in urmatoarea lectie.
Sarcina de atribuire: completați matricea de 100 de numere cu buclă pentru, imprimați numerele 20, 50, 70 din matrice în memo cu buclă pentru și condițiile din ea.
Asta-i tot! Mult noroc!
Ne vedem în următoarea lecție!
unitate 1; interfața utilizează Windows, Mesaje, SysUtils, Variante, Clase, Grafică, Controale, Formulare, Dialoguri, StdCtrls; tipul TForm1 = clasa (TForm) btn1: TButton; mmo1: TMemo; lbl1: Tabel; procedura btn1Click (expeditor: TObject); privat
Adăugat de: adex348 [Newbie]
Nu ați înțeles corect funcția buclă for, pornește codul din bucla cu valoarea inițială pe care ați setat-o și adăugând 1 de fiecare dată când pornește din nou, până când se atinge valoarea finală (care trebuie de asemenea stabilită). Ciclul de sarcină ar trebui să arate astfel: pentru i: = 1 până la 100 nu începe mas [i]: = i; dacă (mas [i] = 20) sau (mas [i] = 50) 70) apoi Memo1.Lines.add (InttoStr (mas [i]); altfel continuați;
Adăugat de: Shik007 [Newbie]
Am făcut al doilea buton la acest program cu codul pentru a șterge conținutul componentei Memo după terminarea buclă. Se pare că aceasta: procedura TForm1.Button2Click (expeditor: TObject); începe memo1.Lines.Clear; se încheie;