clasee Tobjeto con sus respectivos metodos Set y Get
Código Delphi
[-]
type TObjeto = class
private
NombreObj:string;
TipoObj:Integer;
PosiObjX:Integer;
posiObjY:Integer;
MoveUP:Boolean;
MoveDOWN:Boolean;
MoveRIGHT:Boolean;
MoveLEFT:Boolean;
ColorObj: TColor;
MyIcono: TIcon;
public
procedure setNombreObj(NomObj:String);
procedure setTipoObj(TipObj: Integer);
procedure setPosObj(posX:Integer;posY:Integer);
procedure setMove(UP,DOWN,RIGHT,LEFT:Boolean);
procedure setIcon(MyIco:TIcon);
procedure setColor(Color:TColor);
function getTipoObj():Integer;
function getNombreObj():string;
end;
en otro clase necesito llenar el arreglo de objetos
Código Delphi
[-]
type
ArrayObj = Principal.ArrayObj;
type
TFrmObjDisponibles = class(TForm)
ListBox1: TListBox;
BtnCerrar: TButton;
procedure FormShow(Sender: TObject);
procedure FormCreate(Sender: TObject);
public
ArrayObjetos : ArrayObj;
MyObj : TFrmObjeto;
en esta clase quiero llenar ArrayObjetos con los objetos de Tobjetos
lo estoy haciendo asi
Código Delphi
[-] SetLength(Myjk.ArrayObjetos,tamano+1);
ArrayObjetos[tamano]:=TObjeto.Create;
ArrayObjetos[Tamano].setNombreObj(EdtNombreObj.Text);
ArrayObjetos[Tamano].setColor(ColorBox1.Color);
ArrayObjetos[Tamano].setIcon(MyIcono);
ArrayObjetos[Tamano].setMove(CBoxUP.Checked,CBoxDOWN.Checked,CBoxRIGHT.Checked,CBoxLeft.Checked);
ArrayObjetos[Tamano].setTipoObj(Tipo);
inc(tamano);
efectivamente esta llenando el Array (al visualizarlo con un brekpoint)
ahora quiero desde una clase diferente a las 2 visualizar el arreglo
pero al hacer una funcion de pruueba para ver si esta llegando el tamaño de array me muestra -1 (osea que no es la misma referencia al array) o tratar de mostrar el nombre
Código Delphi
[-]
for I := 0 to high(ArrayObjetos) do
ShowMessage(ArrayObjetos[i].getNombreObj);