Ver Mensaje Individual
  #4  
Antiguo 30-04-2007
Avatar de droguerman
droguerman droguerman is offline
Miembro
 
Registrado: abr 2005
Ubicación: tierra
Posts: 999
Reputación: 20
droguerman Va por buen camino
puedes crear tu array de objetos usando la funcion varArrayCreate, o usando el tipo TList, veamos como hacerlo con TList;
Código Delphi [-]
type
  TFrmObjDisponibles = class(TForm)
    ListBox1: TListBox;
    BtnCerrar: TButton;
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
   public
     ArrayObjetos : TList;
     MyObj : TFrmObjeto;

el llenado de los atributos, no de los objetos:
Código Delphi [-]
var
  nuevoItem : TObjeto;
begin
  nuevoItem := TObjeto.create;
  nuevoItem.setNombreObj(EdtNombreObj.Text);  
  nuevoItem.setColor(ColorBox1.Color);  
  nuevoItem.setIcon(MyIcono);
  nuevoItem.setMove(CBoxUP.Checked,CBoxDOWN.Checked,CBoxRIGHT.Checked,CBoxLeft.Checked);
  nuevoItem.setTipoObj(Tipo);
  //añadir al array
  ArrayObjetos.add(nuevoItem);

el acceso:
Código Delphi [-]
for I := 0 to ArrayObjetos.count-1 do
    ShowMessage(TObjeto(ArrayObjetos[i]).getNombreObj);
__________________
self.free;

Última edición por droguerman fecha: 30-04-2007 a las 22:19:34.
Responder Con Cita