Acceder a objetos creados en tiempo de ejecución

[Neftali [Germán.Estévez]]

Yo lo he usado muchas veces y por ejemplo, utilizar una TStringList ordenada, con el nombre de los componentes, mejora infinitamente la velocidad (más cuanto mayor sea el número de componentes) ya que la búsqueda en una lista ordenada es dicotómica, en lugar de secuencial.

[Casimiro Noteví]

También puedes asignar a la propiedad "Tag" del botón el código del artículo, así cuando se pulse un botón no hay que buscar nada, solamente tomar su tag y ya tienes el código del artículo.

[ecfisa]

Hola.

Y, si usas la clase TStringList como te sugiere Neftali, mediante el método AddObject puedes almacenar tanto el nombre del objeto como el objeto mismo.

Código Delphi [-]
...
   Image := TImage.Create;
   //...
   Image.Name := Format('Image%d', [i]);
   Lista.AddObject(Image.Name, TObject(Image));
...

Saludos

[Ñuño Martínez]

Coñe, me apunto lo del TStringList, que no me acordaba yo que podía usarse como contenedor de objetos. La de dolores que me va a ahorrar (cuando me acuerde de usarlo).

[Neftali [Germán.Estévez]]

Empezado por ecfisa

Y, si usas la clase TStringList como te sugiere Neftali, mediante el método AddObject puedes almacenar tanto el nombre del objeto como el objeto mismo.

+1

TStringList, esa gran desconocida...
Nosotros en su día hicimos pruebas de velocidad con otras listas tipo TDictionary e implemenaciones de las listas hash y TStringList resultó en muchos casos más rápida que estas.

[[newtron]]

Buenas compañeros.


De nuevo con este tema. Una vez medio resuelto el tema almacenando las imágenes en "Imagelist" veo que, o no sé o las imágenes no puedo guardarlas con una resolución mayor de X con lo que al mostrarlas grandes se ven muuuuuuuuuuuuuuuuuu mal.


Estoy pensando en guardarlas en una lista tal y como habéis apuntado. Creo una lista de "Timage" tal y como apuntaba mi querido amigo ecfisa pero después no soy capaz de asignarla al componente TImage. Esto es lo que estoy haciendo (ejemplo tontuno):

Código Delphi [-]
..
  Lista:=TStringList.Create(nil);
  Imagen:=TImage.Create(nil);

  Imagen.Picture.LoadFromFile('D:\TEMP\1.JPG');
  Lista.AddObject('IMAGEN1', TObject(Imagen));
..

Entendiendo que esto anterior sea correcto luego no sé cómo asignarla al TImage.


¿Alguien me puede ilustrar?


Gracias y un saludo

[ecfisa]

Hola estimado amigo

Una vez asignado el objeto puedes hacer

Código Delphi [-]
  Lista  := TStringList.Create;
  Imagen := TImage.Create(nil);

  Imagen.Picture.LoadFromFile('D:\TEMP\1.JPG');
  Lista.AddObject('IMAGEN1', TObject(Imagen));

  // Ej1: Mostrar el TImage creado  (igual a hacer: Imagen.Parent := Self;)
  TImage(Lista.Objects[0]).Parent := Self;

  // Ej2: Asignar la imágen a otro TImage
  Image1.Picture.Assign(TImage(Lista.Objects[0]).Picture);

Para referirte al objeto imagen almacenado, usa el moldeo TImage(Lista.Objects[n]).

Otro ejemplo similar que asigna una imagen cargada en un TStringList a un TImage creado en tiempo de diseño:

Código Delphi [-]
var
  pic: TPicture;
  Lista: TStringList;
begin
  Lista := TStringList.Create;
  pic := TPicture.Create;

  Lista.AddObject('Imagen1', TObject(pic));
  TPicture(Lista.Objects[0]).LoadFromFile('C:\TMP\IMAGEN.JPG');

  Image1.Picture.Assign(TPicture(Lista.Objects[0]));
...

Saludos

[[newtron]]

Daniel, gracias compañero. Como siempre es un placer saber de ti.

[Neftali [Germán.Estévez]]

Como añadido a lo que ha comentado [ecfisa], también puedes probar, por ejemplo, con Streams.

Puedes cargar las imágenes en la lista utilizando lo siguiente:

Código Delphi [-]
  ts := TFileStream.Create('f:\__Imagenes__\Imagenes Varias\Logotipos\Logotipo.jpg', fmOpenReadWrite);
  Lista.AddObject(i.ToString, ts);

Y asignarla a un TImage con este:

Código Delphi [-]
  ts := TStream(Lista.Objects[0]);
  Image1.Picture.LoadFromStream(ts);

De forma similar debes poder utilizar TStringList, TObjectList, TList<TStream>, TArray<TStream>.