Acceder a objetos creados en tiempo de ejecución

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

[[newtron]]

¡¡Andalaleche!! Y yo pensando en la manera de hacer esa búsqueda siendo un TObject.


Gracias a todos y un saludo.

[[movorack]]

También puedes usar un TDictionary o crear tu propio objeto basado en este.

Código Delphi [-]
type
  TListaObjetos = class(TDictionary<String,Tobject>)
  public
    function Conteo: string;
  end;

function TListaObjetos.Conteo: string;
begin
  Result := Format('Tengo %d elementos', [Self.Count]);
end;

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: TListaObjetos;
    Nombre: string;
begin
  ListaObjetos := TListaObjetos.Create;
  try
    for i := Low(Nombres) to High(Nombres) do
    begin
      Nombre := Nombres[i].Trim;

      if Nombre.IsEmpty or ListaObjetos.ContainsKey(Nombre.ToUpper) then
        Continue;

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

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

[[newtron]]

Gracias compañero. Ya tengo montado todo el tema con el TStringList.


Saludos