Como crear un bucle con TEdit's

[axlrafael]

Hola amigos foreros, quisiera preguntarles como le puedo hacer para crear un bucle con objetos de tipo TEdit en Delphi?. Lo que intento hacer es algo asi

RangoMatriz := Excel.Range['A1', Excel.Cells.Item[CantRow,CantCol]].Value;
for i:=1 to CantRow do
begin
for j:=1 to CantCol do
begin
Showmessage(RangoMatriz[i,j]);
end;
end;

miren recibo datos desde la variable RangoMatriz, pero en este código lo que me hace es mostrarlos en forma de mensaje, pero lo que yo quiero es asignarle cada dato correspondiente a diferentes objetos tipo TEdit, es decir,

RangoMatriz TEdit
[x1,y1] Edit1.text
[x2,y2] Edit2.text
[x3,y3] Edit3.text
. .
. .
. .
[xn,yn] Editn.text

Por cierto la variable RangoMatriz me indica cada celda donde extraigo datos de una hoja de excel.

Saludos y suerte a todos

[[coso]]

De la manera que esta expresado, parece que solo te interesen las celdas donde x e y son iguales. es ese el caso?

[axlrafael]

Si mira la Matriz me indica unicamente la posición de las celdas en la hoja de excel, es decir:

RangoMatriz
[x1,y1] ----->posición 'A1'
[x2,y1] ----->posición 'A2'

.... y asi sucesivamente, entonces lo que yo kiero es agregar otro "for" pero que me haga referencia a 10 TEdit que tengo en el form donde vayan tomando los valores de cada una de las celdas de la hoja de excel(tomada de la matriz).

Espero me hayas comprendido

[[coso]]

sigo sin entenderte... cojes desde una matriz los valores x,y de una celda y estos valores de celda de excel los quieres poner en 10 edits?

[axlrafael]

Mira supongamos que tengo diez valores en la hoja de excel y en mi form tengo 10 TEdit's, lo que quiero es que en cada uno me muestre el valor 'A1' en el Edit1, el valor de 'A2' en el Edit2, el valor 'A3' en el Edit3, y asi sucesivamente.

Con relación a tu propuesta de hacerlo en un stringGrid te lo agradesco pero mi necesidad es hacerlo en TEdit's

[[coso]]

Si solo son 10 tedits, pues...

Edit1.Text := Excel.Cells.Item[Matriz['A','1']] etc...

si lo que quieres es encontrar un Edit por su nombre, que es lo que me parece, te dejo una funcion...

function TForm.Encontrar_EditBox(string : nombre) : TEdit;
var
I: Integer;
Temp: TComponent;
begin
for I := ComponentCount - 1 downto 0 do
begin
Temp := Components[i];
if (Temp is TEdit) then
if ((Temp as TEdit).Name = nombre)
then
Encontrar_EditBox := (Temp as TEdit);
end;
Econtrar_EditBox := nil;
end;

Esta funcion debe estar en la form donde estan los EditBoxs... asi, por ejemplo, para poner dentro del Editn el valor de la celda [n,n] seria algo como
Encontrar_EditBox('Edit' + inttostr(n)) := Excel.Cells.Item[n,n].Value

deberas tener cuidado si no existe el editbox q se busca ya q seria 'null pointer assignment'. Seguro que hay bugs en el codigo espero q pilles la idea.

[*Caro*]

Hola axlrafael, no te sería mejor mostrar tus datos de tu hoja de excel en un StringGrid.

Código Delphi [-]
 RangoMatriz := Excel.Range['A1', Excel.Cells.Item[CantRow,CantCol]].Value;
 
 StringGrid1.ColCount := NumCol+1;
 StringGrid1.RowCount := NumRow+1; 

 for i:=1 to CantRow do
  begin
   for j:=1 to CantCol do
    begin
      StringGrid1.Cells[j,i] := RangoMatriz[i,j];
    end;
  end;

Saluditos