ListBox en columnas

[[Lepe]]

Quedate solo con este mensaje

La coletilla de roman de destruir los objetos es esto:

Código Delphi [-]
procedure Tform1.FormClose(...);
var i:integer;
begin
  for i:=0 to combo.items.count-1 do
     combo.items.Objects[i].Free;
end;

No tienes que andar con constructores y destructores de ningun tipo jeje. En realidad estas utilizando una clase como si fuera un registro, pero administrando la memoria, es decir, creandolos cuando los necesitas y destruyendolos cuando dejas de usarlos.

Cuando quieras acceder a un elemento, el código exacto para trabajar es:

Código Delphi [-]
procedure mio;
var E:TEmpleado;
     mivalor:integer;
begin
  E:= TEmpleado(combo.items.Objects[i]);
  mivalor := E.Numero;
end;

Aqui no tienes que crear ni destruir nada. Se crea cuando vas a meter los elementos en el combo, y lo destruyes.... pues al cerrar la ventana o justo antes de hacer combo.items.Clear;

Por muchas prisas que tengas, te aconsejo que pierdas 10 minutos en ver esto. Es una solución muy potente para todo tipo de situaciones, incluso con la propiedad Tag que tienen todos los controles y que nadie utilizamos al principio. ¡¡ Ya tienes el código y las explicaciones !! y la verdad, es muy simple.
w

Un saludo

[gryphus]

Uau! Es verda! Ahora si que lo entiendo! Ok! Grácias. Ahora ya lo he echo y me a funcionado.
La verdad es que al final lo prové con un ListView y ya hacía lo que yo quería, pero estéticament no me gustaba mucho... para lo que tiene que hacer, el listbox me va mejor y me a servido mucho el código.
Thanks!