Acceder a objetos creados en tiempo de ejecución

[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>.

[[newtron]]

Gracias Germán.


Ya había pensado también en la posibilidad de usar Streams pero, como casi siempre, os adelantáis.


De momento estoy intentando resolver el tema con TStringList pero ahora se me ocurre que me vendría bien poder buscar dentro de la lista por el nombre del objeto pero no consigo dar con la sintaxis, si es una lista de strings se busca con "IndexOf" pero en este caso que es una lista de objetos.... ¿cómo se haría la búsqueda por el nombre del objeto?


Gracias y un saludo

[[movorack]]

Hola.

Al agregar el objeto al StringList debes colocarle un identificador. El IndexOf verifica ese identificador.

Código Delphi [-]
procedure TForm1.ListarObjetos(Sender: TObject);
  const
    //Algunos nombres están repetidos
    Nombres : Array [0..7] of string = ('Obj1', 'Obj2', 'Obj3', 'Obj1', 'Obj4', 'Obj2', 'Obj5', 'Obj1');
  var
    i: integer;
    ListaObjetos: TStringList;
    Nombre: string;
begin
  ListaObjetos := TStringList.Create;
  try
    for i := Low(Nombres) to High(Nombres) do
    begin
      Nombre := Nombres[i].Trim;

      if Nombre.IsEmpty or (ListaObjetos.IndexOf(Nombre.ToUpper) >= 0) then
        Continue;

      ListaObjetos.AddObject(Nombre.ToUpper, TObject.Create);
    end;    

    //En este punto se deben tener 5 objetos en la lista
  finally
    ListaObjetos.Free;
  end;
end;

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

Empezado por newtron

...pero ahora se me ocurre que me vendría bien poder buscar dentro de la lista por el nombre del objeto pero no consigo dar con la sintaxis

Bueno, por eso hemos comentado lo del TStringList, porque te permite almacenar una cadena asociada a cada objeto.
Como deriva de TStrings, también posee el método IndexOf o el método Find (si está ordenada), que funcionan de la misma manera.