Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Lazarus, FreePascal, Kylix, etc. (https://www.clubdelphi.com/foros/forumdisplay.php?f=14)
-   -   varios text edit y estructuras repetitivas (https://www.clubdelphi.com/foros/showthread.php?t=82996)

pedrolazarus 01-05-2013 02:53:48

varios text edit y estructuras repetitivas
 
Lo que pasa es que tengo una base de datos con los dias de la semana y uno que otro dato en cada tabla de cada dia o sea la base de datos se llama semana y las tablas son los dias.

La cuestion es que me estaba poniendo a inventar con los edit ya que alli voy a mostrar los datos de cada dia, o sea son como 56 text edit que van a mostrar datos de la base de datos, lo que estaba tratando de hacer era esto:

Código:

cambiar esto
for i:=1 to 56 do
begin

edit1.text:='sentencia sql o lo q sea';
...
...
...
....
end;

por esto

for i:=1 to 56 do
begin

edit+i.text:='sentencia sql o lo q sea';  ó  edit+'i'.text:='sentencia sql o lo q sea';

end;

De manera que cuando el for este en 1 el edit sea el 1 cuando el for este en 2 el edit sea el 2 pero sinceramente no me sale, si existe una forma de hacerlo se los agradesco me digan.

Casimiro Notevi 01-05-2013 04:29:33

Haz una búsqueda por FindComponent, aunque es algo más o menos así:
Código Delphi [-]
for i := 1 to 10 do 
  TEdit(FindComponent('Edit'+IntToStr(i))).Text := 'loquesea';

rretamar 01-05-2013 04:37:29

En Visual Basic existe lo que llamaban "array de componentes", pero la solución que usa Lazarus (posteada por Casimiro) es mucho más flexible (y elegante). ^\||/

pedrolazarus 01-05-2013 05:06:58

Cita:

Empezado por rretamar (Mensaje 459635)
En Visual Basic existe lo que llamaban "array de componentes", pero la solución que usa Lazarus (posteada por Casimiro) es mucho más flexible (y elegante). ^\||/


awebo ^\||/, se agradece a casimiro no te vi:p.


La franja horaria es GMT +2. Ahora son las 09:31:40.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi