|
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.
|