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

09:20, C / C++ Vyvoj pro Linux ve CS?

13:21, Python Design třídy...

11:48, C / C++ Jak vytvořit ve Visual Studiu projekt v C, ne v C++?

10:11, C / C++ Jak vytvořit program pro MC68332

08:56, Python Jak zpřístupnit vlastnost nadřazené třídy?

20:54, Java REST API zdarma pro bazos.cz

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