Ver Mensaje Individual
  #2  
Antiguo 02-03-2007
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 18.293
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Puedes utilizar un TList o un TStringList (a mi me gusta más este, ordenado y como cadena el nombre del componente); Cuando necesites encontrar uno los buscas y eliminas la imagen y el elemento de TStringList.

Código Delphi [-]
var
  ListaImagenes:TStringList;
  b:Boolean;
  Index:Integer;
begin
  // Para Crearla ordenaday sin duplicados
  ListaImagenes := TStringList.Create();
  ListaImagenes.Sorted := True;
  ListaImagenes.Duplicates := dupError;
...
  // Para ańadir
  ListaImagenes.AddObject(imag.Name, Imag);
  // Para buscar
  b := ListaImagenes(imag.Name, Index);
  // En b tienes TRUE o FALSE (si la ha enconrado o no).
  // Index es el índice del elemento.

  // Para eliminarla (hay que hacer un Find antes)
  TImage(ListaImagenes.Objects[Index]).Free;
  ListaImagenes.Delete(Index);

Te he puesto el código "al vuelo" sin compilar ni nada, así que talvez exista algun error de sintaxis.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita