Como crear un bucle con TEdit's

[axlrafael]

Hola creo que si me servira el segundo metodo coso, muchas gracias, solo una cosa mas, ya coloque tu código en el form pero me marca error, me dice que no esta declarada "Encontrar_EditBox", la verdad yo soy novato en esto del Delphi y no se donde incluir los "funtion". mira te pongo toda mi idea para que sepas bien a que voy:

tengo un form con dos botones y 11 Edit's, el primer botón es para abrir un opendialog, luego recojo la ubicación de cualquier archivo de excel(para esto ya tengo un estandar de como acomodar los datos que necesito) en un Edit que es el "Edit1", los otros 10 Edit me van a servir para recojer los datos que necesito en la hoja de excel, y por último con el segundo botón le puse este código:

procedure TForm62.Button2Click(Sender: TObject);
const
  xlCellTypeLastCell = $0000000B;
var
 Excel, Sheet, FileName, Encontrar_EditBox: OLEVariant;
 CantRow, CantCol, i, j : Integer;
 RangoMatriz: Variant;
begin
  FileName := Edit1.text;
  Excel := CreateOleObject('Excel.Application');
  Excel.Workbooks.Open(FileName);
 
  Sheet := Excel.Workbooks[ExtractFileName(FileName)].WorkSheets[1];
  Sheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;
  CantRow := Excel.ActiveCell.Row;
  CantCol := Excel.ActiveCell.Column;
  RangoMatriz := Excel.Range['A1', Excel.Cells.Item[CantRow,CantCol]].Value;
  for i:=1 to CantRow do
   begin
    for j:=1 to CantCol do
     begin
     Encontrar_EditBox:=RangoMatriz[i,j];//aqui puse el resultante de la "funtion
       Showmessage(RangoMatriz[i,j]);
       //haces todo lo que necesites hacer
     end;
   end;
   end;

En este código lo que hace es mostrarme por medio de mensajes cada uno de los valores que tiene la hoja, por ejemplo en la hoja de 10 valores me despliega 10 mensajes con los diez datos.

Espero que me hayas comprendido

[[coso]]

Lo siento, si no sabes hacer funciones es que tu nivel es demasiado bajo. Te pongo un link aqui de delphi basico (esta muy bien el tutorial) leetelo y seguro q te entran mas ideas... Suerte

http://www.elguille.info/delphi/curso/delphi01.htm
http://www.elguille.info/delphi/apun...ntesDelphi.htm

[axlrafael]

Ok gracias por los manuales. Saludos

[*Caro*]

Hola de nuevo axlrafael, como te dice coso trata de leer algunos tutoriales, te ayudaran mucho. Ahora sobre tu pregunta si quieres hacerlo con Edit y no con un StringGrid, puedes utilizar la función FindComponent que te encuentra un componente dandole como parametro su nombre como cadena.

Código Delphi [-]
  ..........
  ..........
  RangoMatriz := Excel.Range['A1', Excel.Cells.Item[CantRow,CantCol]].Value;
  for i:=1 to CantRow do
   begin
    for j:=1 to CantCol do
     begin
      TEdit(FindComponent('Edit'+IntToStr(i))).Text := RangoMatriz[i,j];
     end;
   end;
   end;

Estoy suponiendo que tus edits tienen como nombre Edit1, Edit2, Edit3,.....

Saluditos

[axlrafael]

Que tal Caro me da mucho gusto que de nueva cuenta me vuelvas a ayudar, la verdad me sirvio muchisimo tu código, te lo agradesco infinitamente.

Respecto a lo que le agregaste de verdad funciona, me acomoda los datos en donde deben de ir .

Saludos y Suerte.

P.D. Te debo otra de nueva cuenta

[axlrafael]

Hola Caro, quiero preguntarte ¿porque es que despues de utilizar el archivo de excel en mi aplicación ya no me deja abrirlo de nueva cuenta?, he notado que cuando jalo cualquier archivo Excel en la aplicación no me deja abrirlo, me lo abre de tipo solo lectura y por logica no me deja guardarlo si lo quiero modificar.

Tambien note que en el administrador de tareas me abre tantas veces intente abrir yo el mismo archivo que utilice en la aplicación un proceso que es el de Excel ("EXCEL.EXE")

Espero que me puedas ayudar de nuevacuenta.

Saludos y suerte