Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Reemplazar variable por su contenido (https://www.clubdelphi.com/foros/showthread.php?t=66489)

ricardo_soria 23-02-2010 03:44:54

Reemplazar variable por su contenido
 
Estimados amigos:

Agradecería mucho a quien me pueda ayudar con el siguiente tema: ¿cómo reemplazar el nombre de una variable por su contenido, dentro del código fuente? Me explico, tengo una variable tipo string, dentro de la cual armo una cadena con el nombre de un componente, digamos:

Código:

.
.
.
var c: string;
.
.
.
c:='Label5';
.
.
.

Y lo que necesito hacer posteriormente es reemplazar c por su contenido, o sea 'Label5' para acceder a su vez a su propiedad caption, o sea lo que normalmente sería:

Código:

Label5.Caption := 'Hola...';
Pero son diferentes componentes y propiedades lo que habrá que ir cambiando cada vez, por tanto, en la variable c pongo primeramente el nombre del componente, y luego, deseo acceder a las propiedades del mismo, pero a través de la variable c, algo como:

Código:

c.Caption := 'Hola...';
Lo cual, desde luego es incorrecto, pero recuerdo que existe alguna forma de indicar que hay que reemplazar la variable por su contenido, en este caso, reemplazar c por Label5, tal vez es mediante directivas del compilador, no estoy seguro.

Espero que alguien me pueda ayudar con este tema. De antemano, muy agradecido...

Saludos,

Casimiro Notevi 23-02-2010 04:13:18

Creo entender que lo que quieres es algo así como:

Código:

TLabel(c).Caption := 'loquesea';
Aunque no recuerdo si eso funciona, la verdad.

Seguramente será mejor con FindComponent

movorack 23-02-2010 04:22:37

Se a que te refieres... por lo menos en php es facil de hacer...
Código Delphi [-]
  $var_name = "var";
  $$var_name = "Hola, Mundo!";
  echo $var; // imprime "Hola, Mundo"

En delphi, esto no lo puedes hacer (hasta donde se). lo que debes hacer, es crear una variable cuyo tipo de dato sea TLabel y asignar el objeto que quieres trabajar a esa variable. ( estoy hablando burradas? - por eso no posteo casi :( )

Código Delphi [-]
var
  aLabel : TLabel;

un pequeño ejemplo

Código Delphi [-]
procedure cambiartextoalaetiqueta(aLabel : TLabel, Texto : String);
begin
  aLabel.Caption := Texto;
end;

Caro 23-02-2010 04:31:06

Hola

Cita:

Empezado por Casimiro Notevi (Mensaje 354707)
Creo entender que lo que quieres es algo así como:

Código:

TLabel(c).Caption := 'loquesea';
Aunque no recuerdo si eso funciona, la verdad.

Eso no funciona amiguito.

Ricardo, como te dice Casimiro debes utilizar FindComponent:

Código Delphi [-]
var
 c : String;
 Labels : TComponent;
begin
 c:='Label5';
 
 Labels := Findcomponent(c);
 if Assigned(Labels) then
  TLabel(Labels).Caption := 'Hola....';

Saluditos

Casimiro Notevi 23-02-2010 05:15:30

Cita:

Empezado por movorack (Mensaje 354708)
[..]
En delphi, esto no lo puedes hacer (hasta donde se). lo que debes hacer, es crear una variable cuyo tipo de dato sea TLabel y asignar el objeto que quieres trabajar a esa variable. ( estoy hablando burradas? - por eso no posteo casi :( )[..]

¿Quién nace sabiendo?, nadie :)

La mayoría de las cosas yo no las recuerdo de memoria, casi siempre tengo que estar antes buscando mis apuntes/documentos, tampoco vayas a creer que aquí somos sabios (algunos sí que hay, sí) :D

ricardo_soria 23-02-2010 19:33:49

Muchas Gracias!
 
Estimados amigos:

Muchas gracias a todos por sus respuestas y su ayuda. He probado lo de FindComponent, y funciona a la perfección.

De nuevo,

Muchas gracias!

Saludos a todos...

movorack 23-02-2010 21:12:47

Cita:

Empezado por Casimiro Notevi (Mensaje 354716)
¿Quién nace sabiendo?, nadie :)... tampoco vayas a creer que aquí somos sabios (algunos sí que hay, sí) :D

:D:D:D:D

Es que me siento ensanduchao!.... ya no tengo las dudas básicas de cuando empecé a desarrollar en delphi y cuando tengo alguna duda se como buscar en todos los recursos que pueda por tal razón no pregunto casi...

Pero tampoco se como responder y si depronto tengo idea... espero a ver las respuestas de alguno de ustedes para ver si "estaba en lo correcto"... aveces si... la mayoria de las veces aprendo mas. :p

Casimiro Notevi 23-02-2010 23:06:30

Cita:

Empezado por movorack (Mensaje 354810)
:D[..]Pero tampoco se como responder y si depronto tengo idea... espero a ver las respuestas de alguno de ustedes para ver si "estaba en lo correcto"... aveces si... la mayoria de las veces aprendo mas. :p

A mí me pasaba lo mismo, me daba miedo responder por si me equivocaba, hasta que un día empecé a contestar algunas preguntas de las facilitas y así poco a poco, hasta ahora, que también hago como tú, cuando no estoy muy seguro lo que hago es esperar que algún "experto" conteste y listo, porque mis conocimientos son bastante escasos, a mí que no me saquen de las motos, de otra cosa no sé :D


Por cierto, 'ensanduchao', ¿eso qué es? :)

movorack 23-02-2010 23:45:55

Cita:

Empezado por Casimiro Notevi (Mensaje 354813)
Por cierto, 'ensanduchao', ¿eso qué es? :)

Ensanduchao! > Ensanduchado > Estar en un sanduche, sentirse en medio de algo... :D:D:D:D:D costeño alfin...


La franja horaria es GMT +2. Ahora son las 12:03:56.

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