Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 12-03-2018
DrakStorm DrakStorm is offline
Miembro
 
Registrado: May 2013
Posts: 12
Poder: 0
DrakStorm Va por buen camino
variables y componentes delphi

Buen día, molesto por lo siguiente, soy relativamente un programador inexperto en varios aspectos y me encontré con el siguiente problema.

tengo 5 TImage

Image1
Image2
...
Image5

bueno la idea es saber si se puede y como se hace para por ejemplo llamar al componente pero con una variable

I : integer

Image[i]

o algo parecido

Muchas gracias
Responder Con Cita
  #2  
Antiguo 12-03-2018
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: Dec 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.099
Poder: 30
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

De momento se me ocurren dos opciones; un arreglo de TImages
Código Delphi [-]
...
var
  Img: array[1..5] of TImage;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Img[1] := Image1;
  Img[2] := Image2;
  Img[3] := Image3;
  Img[4] := Image4;
  Img[5] := Image5;
end;

...
//Ejemplo de uso:

  Img[3].Picture.LoadFromFile('delphi.bmp');

O localizar el control por su nombre:
Código Delphi [-]
...
var
  cp: TComponent;
begin
  cp := FindComponent('Image3');
  if Assigned(cp) then
    TImage(cp).Picture.LoadFromFile('delphi.bmp');
Seguramente te propondrán otras alternativas.

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 12-03-2018 a las 17:57:38.
Responder Con Cita
  #3  
Antiguo 13-03-2018
Avatar de ElDioni
[ElDioni] ElDioni is offline
Miembro Premium
 
Registrado: Jul 2005
Ubicación: Murcia (España)
Posts: 911
Poder: 14
ElDioni Va por buen camino
Hola,

lo mismo que la segunda opción de ecfisa pero sin una variable Tcomponent y sin comprobar si el componente que buscas existe.

Código Delphi [-]
for x:=1 to 5 do
  begin
    TImage(FindComponent(inttostr(x))).Picture:=nil;
  end;

Saludos.
__________________
Confórmate con lo que tienes pero anhela lo que te falta.
Responder Con Cita
  #4  
Antiguo 14-03-2018
DrakStorm DrakStorm is offline
Miembro
 
Registrado: May 2013
Posts: 12
Poder: 0
DrakStorm Va por buen camino
Muchas gracias a ambos, con sus respuestas pude solucionar el inconveniente, todas las soluciones funcionan perfectamente.

Saludos y muchas gracias
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Pasar Variables a Delphi marcial HTML, Javascript y otros 8 19-09-2013 10:10:53
Variables de delphi. P0werBurn Varios 6 31-07-2010 22:16:01
variables en delphi analoyra Varios 0 16-11-2009 17:29:32
Parametros Out y Variables Delphi MySql RiverPlate MySQL 1 17-09-2006 15:45:11
ayuda con delphi^interbase^sql^variables julio2484 Conexión con bases de datos 4 17-09-2004 05:23:01


La franja horaria es GMT +2. Ahora son las 18:06:26.


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