Načítání parametru z více objektů stejného typu – Delphi – Fórum – Programujte.com

Rozšířené hledání ›

Nejnovější témata ve fóru

16:45, HTML / XHTML Anti-kukíkový zákon

16:26, Assembler šachový program

22:06, Startupy Megastroj.cz – Vše na jednom místě: půjčovna, bazar a inze…

21:17, Inzerce FPGA vývojová deska XILINX VIRTEX 5 ML507

20:59, OS - GNU / Linux Ubuntu a OpenSuse

21:47, Offtopic Digitalizace v Česku

Stavba Laser Arény
Laser Game Brno

Fórum › Delphi

Načítání parametru z více objektů stejného typu

KingScorpion0

Newbie

23. 10. 2009 #1

Zdravím, je to asi banalita, ale dá se nějak číst stejný parametr z více objektů pomocí nějaké smyčky? Typicky pokud chci například z 20 ComboBoxů značených běžným ComboBox1(2,3,...) přečíst parametr ItemIndex, musím to momentálně vypisovat jedno po druhém. Zkoušel jsem i smyčku
for i:= 1 to 20 do array[i]:=ComboBox[i].ItemIndex
což ale nefunguje.. Nějaký tip jak to udělat jednodušeji než vypisovat?
Za každou radu díky :)

Nahlásit jako SPAM

IP: 77.48.140.–

LiborBes

~ Anonymní uživatel
~ 47 příspěvků

9. 11. 2009 #2

Asi by bolo lepsie si urobit CheckBox list komponent, ak nieco take neexistuje (nepamtam sa), ale tvojim rychlim riesenim by bolo, ak by si tie checkboxy umiestnil na nejaky panel. Potom na tomto panely by si prechadzal jeho Controls v cykle asi takto:



for Index := 0 to Pred(PanelMojeCheckboxy.Controls.Count) do

begin

  if PanelMojeCheckboxy.Controls[Index] is TCheckBox then

    ??? := TCheckBox(PanelMojeCheckboxy.Controls[Index]).ItemIndex;

end; // for

Mozes si na to urobit fciu, ktora ti to vrati - posles jej len panel parametrom. Ta fcia je dobry napad, pretoze mozno budes potrebovat checkboxy hladat aj na inych paneloch, ktore su umiestnene na tom panely, vtedy ju budes musiet trocha modifikovat, aby si to volal v rekurzii, napr.:

if PanelMojeCheckboxy.Controls[Index] is TCheckBox then
??? := TCheckBox(PanelMojeCheckboxy.Controls[Index]).ItemIndex
else if PanelMojeCheckboxy.Controls[Index] is TWinControl then
NazovFciew(PanelMojeCheckboxy.Controls[Index]); // ???

Nahlásit jako SPAM

IP: 88.212.35.–

KingScorpion0

Newbie

10. 11. 2009 #3

Aha, to by mě nenapadlo.. Půjdu to zkusit zrealizovat.. Díky :)

Nahlásit jako SPAM

IP: 77.48.140.–

← Zpět na seznam vláken ← Zpět do Fóra