delphi
type TmiObjeto = class(TObject) sPath: String; end; procedure TForm1.AgregarALista(sFullPath: String); var obj : TmiObjeto; sFileName : string; begin sFileName := ExtractFileName(sFullPath); obj := TmiObjeto.Create; obj.sPath := sFullPath; listbox1.Items.AddObject(sFileName, TmiObjeto(obj)); end;
Pues el asunto funciona porque se agrega el item, pero quiero confirmar el valor del objeto que se almacenó, o sea, el valor de Obj del item luego de agregado, ¿alguna idea?
Saludos.