Ver Mensaje Individual
  #3  
Antiguo 21-06-2005
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.285
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Supongo que te refieres a que creas varios componentes utilizando la misma referencia (si no así Roman tiene razón...):

Código Delphi [-]
 var 
   Edit:tEdit;
 begin
 ...
 for i := 0 to 10 do begin
    Edit := TEdit.Create(...);
  ...
  Edit.Name := '???';

end;

Para obtener componentes con FindComponent necesitas tener el nombre y como comprobación adicional utilizar el operador IS. Algo así podría ser un ejemplo:

Código Delphi [-]
 var 
   Edit:tEdit;
   i:Integer;
   comp:TComponent;
 begin
 ...
 for i := 0 to 10 do begin
   Name := 'Edit' + IntToStr(i);  // para ir cambiando el nombre
   // Buscamos el componente
   comp := FindComponent(Name);
   // Lo ha encontrado?
   if Assigned(comp) then begin
     // Asegurarnos de que es un Edit (tal vez no haría falta.)
     if (comp is TEdit) then begin
       TEdit(comp).Text := 'Encontrado';
       TEdit(comp).Color := clGray;      
     end;
   end;
 end;
 

NOTA: En la ayuda de Delphi tienes algun eemplo más del FindComponent:
NOTA: Te he puesto el código de memoria (no lo he compilado), así que tal vez tenga algun error de sintaxis.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita