FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Como crear un bucle con TEdit's
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 |
#2
|
|||
|
|||
De la manera que esta expresado, parece que solo te interesen las celdas donde x e y son iguales. es ese el caso?
|
#3
|
|||
|
|||
mas o menos
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 |
#4
|
|||
|
|||
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? |
#5
|
|||
|
|||
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 |
#6
|
|||
|
|||
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. |
#7
|
||||
|
||||
Hola axlrafael, no te sería mejor mostrar tus datos de tu hoja de excel en un StringGrid.
Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Bucle for de 2 en 2 | douglas | OOP | 9 | 17-10-2007 15:55:53 |
Pasar demas datos de un DBGRID a TEDIT's | Ericato | Varios | 5 | 09-03-2007 17:44:05 |
Salir de un bucle do while | RoyTan | Varios | 2 | 28-08-2006 14:25:36 |
bucle dentro de un bucle | Cosgaya | Varios | 2 | 06-06-2005 07:05:16 |
Detener un bucle | lfidanza | Varios | 5 | 25-06-2003 00:36:14 |
|