Hola
Supongo que C1 es un TEdit entonces podrias hacer:
Código Delphi [-]Var
T:TComponent;
begin
T:=FindComponent('C1');
if assigned(t)then
Valor:=(t as TEdit).text;
end;
Lo he escrito de memoria. Espero te sea util
Saludos
__________________
Caminante, son tus huellas el camino y nada más; Caminante, no hay camino, se hace camino al andar.
Antonio Machado
|