Acceso masivo a elementos
Publicado por Jose Mariano (5 intervenciones) el 26/04/2003 10:49:11
Hola a todos. Quisiera exponer una pregunta que ya formulé hace un tiempo pero que las soluciones que me ofrecieron alguno de ustedes (lo cual agradezco enormemente) no me resultaron. Estoy desarrollando un programa en el que empleo una cantidad importante de ventanas con elementos de tipo TEdit, dispuestos en forma de tabla. Estos TEdit deben contener una serie de datos numericos de tipo Real que se corresponden con los valores almacenados en una estructura de tipo ARRAY. Lo que deseo hacer es crear un procedimiento para que al cargar una ventana automaticamente se visualice la información de cada elemento TEDIT, tal que lo que quisiera hacer sería algo como esto:
Edit [i,j]:= Tabla[i,j]
No he encontrado una forma eficiente de realizar esta asignacion y me está ocasionando unos problemas tales que estoy empezando a pensar que me he equivocado de lenguaje.
En este momento me estoy viendo obligado a escribir las asignaciones una por una, es decir:
Edit[1,1]:= Tabla[1,1]; Edit; Edit[2,2]:= Tabla[2,2]; ...etc
En otras ocasiones, cuando creo un procedimiento tal que
Procedure MIO;Begin
Form2.Edit1.Text:='2'; end;
... no realiza lo mismo que si hago...
Procedure MIO;Begin
Edit1.Text:='2'; end;
... es decir, el compilador lo acepta pero de una manera ejecuta lo que se le dice y de la otra manera no lo realiza.
Si alguien pudiera ayudarme le estaría muy agradecido. He dedicado muchas horas en la implementacion y no se si voy a tener que dejarlo.
Muchisimas gracias a todos.
Edit [i,j]:= Tabla[i,j]
No he encontrado una forma eficiente de realizar esta asignacion y me está ocasionando unos problemas tales que estoy empezando a pensar que me he equivocado de lenguaje.
En este momento me estoy viendo obligado a escribir las asignaciones una por una, es decir:
Edit[1,1]:= Tabla[1,1]; Edit; Edit[2,2]:= Tabla[2,2]; ...etc
En otras ocasiones, cuando creo un procedimiento tal que
Procedure MIO;Begin
Form2.Edit1.Text:='2'; end;
... no realiza lo mismo que si hago...
Procedure MIO;Begin
Edit1.Text:='2'; end;
... es decir, el compilador lo acepta pero de una manera ejecuta lo que se le dice y de la otra manera no lo realiza.
Si alguien pudiera ayudarme le estaría muy agradecido. He dedicado muchas horas en la implementacion y no se si voy a tener que dejarlo.
Muchisimas gracias a todos.
Valora esta pregunta
0