• Domingo 22 de Diciembre de 2024, 09:05

Autor Tema:  Ayuda Con Images  (Leído 1452 veces)

cidemente

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Ayuda Con Images
« en: Miércoles 25 de Abril de 2007, 00:53 »
0
Hola, tengo que cargar 16 images con una misma imagen, mi codigo es el siguiente:
        ImageList1.GetBitmap(0,Image1.Picture.Bitmap);
        ImageList1.GetBitmap(0,Image2.Picture.Bitmap);
        ImageList1.GetBitmap(0,Image3.Picture.Bitmap);
        ..........
y asi hasta el
        ImageList1.GetBitmap(0,Image18.Picture.Bitmap);

mi pregunta es si se puede hacer de alguna manera mas sencilla (usando un for) ya que de esta forma me dicen que es ineficiente, que deberia hacerlo en menos lineas, muchas gracias por su ayuda

juanlaplata

  • Miembro activo
  • **
  • Mensajes: 28
    • Ver Perfil
Re: Ayuda Con Images
« Respuesta #1 en: Jueves 26 de Abril de 2007, 19:51 »
0
claro que se puede prueba con esto
Código: Text
  1. var im:TImage;
  2.     i:integer;
  3. begin
  4. for  i:=1  to 16 do
  5.   begin
  6.      im:= (self.FindComponent('image'+intToStr(i))) as TImage;
  7.      ImageList1.GetBitmap(0,Im.Picture.Bitmap);
  8.   end;
  9.  

Espero te sirva. Suerte.