Array de objetos propios?

[gandalf_uy]

Tengo un problema al intentar hacer un array de un objeto que he creado.

Código Delphi [-]
unit miprueba;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type

  TDias = class
     Nombre : String;
     Constructor Crear;
     Destructor Eliminar;
  end;

  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Ventanas : array [1..2] of TDias;

implementation

{$R *.dfm}

constructor TDias.Crear;
begin
     inherited create;
     Nombre := '';
end;

destructor TDias.Eliminar;
begin
     inherited Destroy;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
     Ventanas[1].Crear;
end;

end.

Me compila bárbaro pero al intentar crear el objeto de la primer posición del array me da un error.

Alguna idea de que puede ser?

[[cHackAll]]

No estoy del todo seguro pero por lo que veo allí hay un error lógico... estas llamando al constructor y destructor heredado de la clase... pero la clase no es heredada. (debiese ser primero virtual al ser la padre)

Ej.

Código Delphi [-]
TDias = class(TAlgo)
 Nombre : String;
 Constructor Crear; override;
 Destructor Eliminar; override;

...

end;

tambien esta el dato que te comentaba... si no estas heredando como puedes llamar al método heredado¿?¿?¿?

Empezado por gandalf_uy

Código Delphi [-]
inherited create;

...

inherited Destroy;

0j0: POO

Saludos

[[Héctor Randolph]]

Por otra parte, es posible que por acá también te venga un error:

Código Delphi [-]
 // Ventanas[1].Crear; // <---  Esto no va
 Ventanas[1]:=TDias.Crear;

Saludos

[[cHackAll]]

Empezado por Héctor Randolph

Por otra parte, es posible que por acá también te venga un error...

Tambien puede ser.

Saludos

[[Al González]]

¡Hola!

Empezado por gandalf_uy

...pero al intentar crear el objeto de la primer posición del array me da un error...

gandalf_uy, te faltó mencionar algo muy importante: el mensaje de error que aparece en pantalla.

Empezado por cHackAll

...la clase no es heredada. (debiese ser primero virtual al ser la padre)...si no estas heredando como puedes llamar al método heredado¿?¿?¿?

Según parece, el problema no tiene que ver con la ausencia o presencia de virtualidad en ningún método Javier. Las llamadas puestas por gandalf_uy al constructor Create y al destructor Destroy son válidas, ya que al no haber indicado una clase padre para TDias, el compilador toma a TObject (la clase ancestral base de cualquier otra) como su clase padre. En ese caso está llamando a TObject.Create y TObject.Destroy.

Empezado por Héctor Randolph

Por otra parte, es posible que por acá también te venga un error:

Código Delphi [-]
 // Ventanas[1].Crear; // <---  Esto no va
 Ventanas[1]:=TDias.Crear;

Saludos

Yo diría que es casi seguro Héctor (a falta de más información por parte de gandalf_uy). No se estaba llevando a cabo una correcta instanciación del objeto.

Cabe mencionar gandalf_uy, que el constructor y el destructor que has definido en TDias son innecesarios, ya que el primero no hace nada que no haga ya el constructor Create heredado de TObject, y el segundo sólo llama al destructor Destroy. Si la clase TDias tuviese algo que inicializar o destruir de manera especial, entonces si tendrían utilidad.

Por último, te pregunto dos cosas:
¿Cómo te fue después de estas orientaciones? ¿Cuál es el objetivo de ese arreglo? (esto para ver si existen mejores alternativas).

Saludos.

Al González.

[gandalf_uy]

La verdad es que lo resolví haciendo un TObjectList, pero pruebo las sugerencias y comento como me fue.

Salu2 y muchas gracias a todos por responder.

[[AzidRain]]

Me parece que era la elección natural en este caso pero que bueno que ya lo descubriste de esto se trata.