Komponente za rad sa nizovima
Komponenta Memo
Slična je komponenti Edit, ali za razliku od nje dozvoljava unos više redova teksta.
Svojstva:
- Alignment – u edit komponenti tekst može imati samo levo poravnanje a u memo, preko osobine alignment, tekst može biti centriran i desno poravnat.
- Lines – omogućava unos teksa u memo okvir. Svojstvo Lines se koristi i za pristup pojedinim redovima teksta u okviru Memo kontrole. To je numerisan niz stringova (linija) sa indeksima od 0 na dalje.
- Svojstvo Text nije sadržano u Inspektoru Objekata ali se može koristiti u toku izvršenja aplikacije. Svojstvo text sadrži ceo sadržaj memo kontrole kao jedan string.
- ScrollBars- omogućava postavljanje sctoll traka
Metode:
- Add – U toku izvršenja aplikacije u Memo se mogu dodavati redovi teksta korišćenjem metode Add. Npr Memo1.lines.Add(‘Novi red’)postojećem sadržaju Memo okvira dodaje red sa tekstom pod navodnicima.
- Memo.Lines.Count daje broj linija Memo konrole.
Memo1.lines[n] – omogućava pristup n-toj liniji memo1 okvira
Primer1. Ispisivanje niza slučajnih brojeva
Bez definisanja niza:
procedure TForm1.Button1Click(Sender: TObject); ); (Dugme formiraj)
var
i,n,a:integer;
begin
randomize;
n:=strtoint(edit1.text); – broj članova niza
for i:=1 to n do
begin
a:=random(100); -izbor slučajnog broja
memo1.lines.add(inttostr(a)); -dodavanje slučajno izabranog broja u memo1 okvir
end;
end;
Sa definisanjem niza:
procedure TForm1.Button1Click(Sender: TObject); ); (Dugme formiraj)
type niz=array[1..100]of integer; – definiše se tip niza od max 100 celobrojnih članova
var a:niz;
i,n:integer;
begin
n:=strtoint(edit1.text);
randomize;
for i:=1 to n do
begin
a[i]:=random(100);
memo1.lines.add(inttostr(a[i]));
end;
end;
Svi generisani brojevi, sem što su ispisani u Memo okvir, ostaju zapamćeni u memoriji u , za to predviđenim memorijskim lokacijama na adresi a(a[1],a[2],a[3]…).
Preuzmite dokumente sa zadacima za rad sa nizovima: