com array

[deio 0]

ola a todos, naum sei usar array direito, e gostaria de criar um array q tenha 12 campos [1..12] e adiconar a cada campo um combobox1.itemindex, como faço isso?

[marcio.theis 3]

Não é complicado trabalhar com array, segue exemplos:

 

Criado o array faça:

 

var	meuArray: array[1..12] of integer;

 

Para atribuir valor sendo 1 por 1, pode fazer...

 

meuArray[1]:=combobox1.itemindex;meuArray[2]:=combobox2.itemindex;meuArray[3]:=combobox3.itemindex;meuArray[4]:=combobox4.itemindex;meuArray[5]:=combobox5.itemindex;meuArray[6]:=combobox6.itemindex;meuArray[7]:=combobox7.itemindex;meuArray[8]:=combobox7.itemindex;meuArray[9]:=combobox9.itemindex;meuArray[10]:=combobox10.itemindex;meuArray[11]:=combobox1.itemindex;meuArray[12]:=combobox11.itemindex;

 

Caso os ComboBox sigam uma nomenclatura igual de nome, pode fazer:

 

var	x: integer;beginfor x:=1 to 12 do	meuArray[x]:=TComboBox(FindComponent('combobox' + IntToStr(x))).itemindex;