Componenta Memo1 trebuie setată la Align = alClient.
Creați un eveniment pentru formularul onCreate și încărcați un fișier cu o listă de etichete în lista ListBox1:
procedura TForm1.FormCreate (expeditor: TObject);
începe
Memo1.clear;
ListBox1.Items.LoadFromFile ("tag.txt");
se încheie;
Dacă totul se face corect, atunci când executați proiectul, vom vedea această imagine:
procedura TForm1.ListBox1DblClick (expeditor: TObject);
începe
Memo1.Lines.Add (ListaBox1.Items [ListBox1.ItemIndex]);
se încheie;
Aici, intrarea Memo1.Lines.Add înseamnă - adăugați o linie la Memo1.
ListBox1.Items este un șir din lista cu numărul [ListBox1.ItemIndex]. ItemIndex este numărul liniei selectate din listă. Din moment ce ListBox1.Items este o serie de șiruri de caractere, apelul la șir este realizat ca element al matricei, prin numărul său.
Rulați proiectul pentru execuție și încercați să scrieți o pagină HTML inserând etichete făcând dublu clic pe ListBox1.
Înlocuiți butonul - butonul2;
Butonul Ștergere - butonul3;
Buton Inserare - buton4;
procedura TForm1.Button1Click (expeditor: TObject);
începe
dacă MessageDlg ('Adăugați înregistrare?', mtInformation, [mbOk, mbCancel], 0) = mrOK
atunci
nbsp începe
ListBox1.Items.Add (edit1.text);
ListBox1.Items.SaveToFile ("tag.txt");
nbsp end;
se încheie;
procedura TForm1.Button2Click (expeditor: TObject);
începe
dacă MessageDlg ("Înlocuiește înregistrarea?", mtInformation, [mbOk, mbCancel], 0) = mrOK
atunci
începe
ListBox1.Items [ListBox1.ItemIndex]: = editare1.Text;
ListBox1.Items.SaveToFile ("tag.txt");
se încheie;
se încheie;
procedura TForm1.Button3Click (expeditor: TObject);
începe
dacă MessageDlg ("Ștergeți intrarea?", mtInformation, [mbOk, mbCancel], 0) = mrOK
atunci
începe
ListBox1.Items.delete (ListBox1.ItemIndex);
ListBox1.Items.SaveToFile ("tag.txt");
se încheie;
se încheie;
procedura TForm1.Button4Click (expeditor: TObject);
începe
dacă MessageDlg ("Inserare înregistrare?", mtInformation, [mbOk, mbCancel], 0) = mrOK
atunci
începe
ListBox1.Items.Insert (ListBox1.ItemIndex, Edit1.text);
ListBox1.Items.SaveToFile ("tag.txt");
se încheie;
se încheie;
Row tab Tabul adițional conține componenta StringGrid, un tabel în care puteți afișa datele de șir în celule. Numărul de rânduri și coloane din tabel poate fi setat de proprietățile RowCount și ColCount, respectiv.
FixedCols și FixedRows specifică numărul de celule fixe pentru a afișa anteturile și rândurile coloanelor. Conținutul celulelor este accesat de către celulele [ACol, ARow: Integer]: funcția string, unde ACol și ARow sunt numărul coloanei și respectiv numărul de linie.
Pentru a activa capacitatea de redimensionare a celulelor în timpul funcționării programului, proprietățile Options \ goRowSizing și Options \ goColSizing ar trebui să fie setate la true.
Creați un tabel cu celule de 6x6 cu anteturi, așa cum este obișnuit în Microsoft Excel.
Crearea anteturilor de celule este plasată în evenimentul de creare a formularului OnCreate:
procedura TForm1.FormCreate (expeditor: TObject);
var n: întreg;
începe
pentru n: = 1 la 6 face StringGrid1.Cells [0, n]: = IntToStr (n);
pentru n: = 1 la 6 face StringGrid1.Cells [n, 0]: = chr (n + 64);
label1.Caption: = '';
se încheie;
FloatToStr (x: real) - convertește un număr într-un șir.
StrToFloat (s: string) - convertește un șir la un număr.
Folosind generatorul de numere aleatoare, creați o matrice, de exemplu 3 x 3 elemente și calculați suma diagonalei principale a matricei. Rezultatul este plasat în colțul din dreapta jos al matricei (celula 4.4).
Matricea va fi încărcată atunci când este apăsat butonul "Nou" (butonul 2). Să creăm un eveniment onClick pe Button2:
procedura TForm1.Button2Click (expeditor: TObject);
var
x, y: întreg;
z: real;
începe
randomiza;
pentru x: = 1 la 3 nu
începe
pentru y: = 1 la 3 nu
începe
StringGrid1.Cells [x, y]: = FloatToStr (aleatoriu (200) * 0,1);
se încheie;
se încheie;
z: = 0;
pentru x: = 1 la 3 face z: = z + StrToFloat (StringGrid1.Cells [x, x]);
StringGrid1.Cells [4,4]: = 'Sum =' + FloatToStr (z);
se încheie;
Articole similare
Trimiteți-le prietenilor: