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
public
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?