Komponenta StrArray


P°ehled vlastnostφ, metod a udßlostφ objektu:
--------------------------------------------------------------
Count (R)            
--------------------------------------------------------------
Add                  Delete               Exchange
IndexOf              Insert               LoadFromFile
Move                 SaveToFile           
--------------------------------------------------------------
Legenda: * -> pouze z programu, R -> lze Φφst, W -> lze zadat

Jedna z mßla komponent, kterß nenφ umφst∞na na palet∞ komponent, p°esto mß vÜak velk² v²znam. Nepou₧φvß se nikdy p°φmo, je vÜak obsa₧ena v dalÜφch komponentßch jako jedna z vlastnostφ. Jednß se nap°φklad o vlastnost Lines u komponent Memo, DataMemo a RichEdit, vlastnost Items u komponent ComboBox, ListBox, CheckListBox a RadioGroup nebo vlastnost Tabs u vlastnosti TabControl.

Ke komponent∞ se z programu p°istupuje v₧dy p°es jmΘno rodiΦovskΘho (nad°azenΘho) objektu na formulß°i, kterΘ se uvßdφ v₧dy vΦetn∞ vlastnosti nebo metody typu StrArray. Objekty jsou p°itom odd∞leny teΦkou. Pro p°idßnφ novΘho °et∞zce do textu komponenty Memo (vlastnost Lines) se proto p°i pou₧itφ metody Add pou₧ije nßsledujφcφ zßpis:


Jazyk KLONDAIK: Memo.Lines.Add('aaa');


Jazyk BONANZA: Memo.Lines.Add("aaa")

Vnit°n∞ je mo₧nΘ si komponentu typu StrArray p°edstavit jako seskupenφ samostatn²ch °et∞zc∙, kterΘ jsou z programu p°φstupnΘ sv²m indexem, to je po°adov²m Φφslem °et∞zce. Indexy jsou Φφslovßny od nuly. Prvnφ °et∞zec v seznamu mß proto index nula, pßt² °et∞zec mß index 4. Pokud pot°ebujete zjistit obsah °et∞zce, musφte zadat jeho po°adov² index, kter² se zadßvß v hranat²ch zßvorkßch. Obsah prvnφho °ßdku textu komponenty Memo proto zobrazφte:


Jazyk KLONDAIK: ShowMessage(Memo.Lines[0]);


Jazyk BONANZA: ShowMessage(Memo.Lines(0))

Podobn²m zp∙sobem m∙₧ete zm∞nit obsah °et∞zce, kdy op∞t zadßvßte p°φstupov² index a nov² obsah. Pro druh² °ßdek textu komponenty Memo proto zadßte:


Jazyk KLONDAIK: Memo.Lines[1]:='druh² °ßdek';


Jazyk BONANZA: Memo.Lines(1) = "druh² °ßdek"

Novou polo₧ku zadßte do seznamu °et∞zc∙ z programu pou₧itφm metody Add nßsledujφcφm zp∙sobem:


Jazyk KLONDAIK: Memo.Lines.Add('aaa');


Jazyk BONANZA: Memo.Lines.Add("aaa")

Pokud pot°ebujete zruÜit n∞kterou polo₧ku ze seznamu °et∞zc∙, pou₧ijte volßnφ metody Delete nßsledujφcφm zp∙sobem:


Jazyk KLONDAIK: Memo.Lines.Delete(2);


Jazyk BONANZA: Memo.Lines.Delete(2)

Pot°ebujete-li v seznamu °et∞zc∙ vyhledat index polo₧ky se znßm²m obsahem, pou₧ijte funkci IndexOf nßsledujφcφm zp∙sobem:


Jazyk KLONDAIK: ShowMessage(Memo.Lines.IndexOf('aaa'));


Jazyk BONANZA: ShowMessage(Memo.Lines.IndexOf("aaa"))

Seznamu °et∞zc∙ m∙₧ete ulo₧it na disk do textovΘho souboru metodou SaveToFile, p°φpadn∞ naΦφt textov² soubor do seznamu °et∞zc∙ metodou LoadFromFile:


Jazyk KLONDAIK: Memo.Lines.SaveToFile('seznam.txt'); Memo.Lines.LoadFromFile('seznam.txt');


Jazyk BONANZA: Memo.Lines.SaveToFile("seznam.txt") Memo.Lines.LoadFromFile("seznam.txt")

Pot°ebujete-li projφt cel² seznam °et∞zc∙ a provΘst s ka₧dou polo₧kou seznamu n∞jakou akci, pou₧ijte vlastnosti Count. Musφte p°itom poΦφtat s tφm, ₧e se polo₧ky seznamu Φφslujφ od nuly, poΦet polo₧ek seznamu je vÜak uvßd∞n od jedniΦky. Od poΦtu polo₧ek °et∞zc∙ musφte proto v cyklu jedniΦku odeΦφst:


Jazyk KLONDAIK: for x:= 0 to Memo.Lines.Count-1 do Memo.Lines[x] := CsWinToLat(Memo.Lines[x]);


Jazyk BONANZA: For x = 0 to Memo.Lines.Count-1 Memo.Lines(x) = CsWinToLat(Memo.Lines(x)) Next

KonkrΘtnφ p°φklady pou₧itφ jsou uvedeny v₧dy u popisu vlastnosti, kterß je typu StrArray.


OZOGAN, 1 Mßje 97, 460 01 Liberec
tel.,fax: (048) 52 28 338, e-mail: info@ozogan.cz