zahori
11 de Febrero del 2005

Hola.

Veran, estoy intentando aprender Delphi por mi cuenta y al hacer mi primer constructor de una clase ya tengo mi primer problema el c贸digo es este:

type
TMatriz = class
private
ele : array[1..9] of integer;
public
constructor Inicio;
end;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var Form1: TForm1;

implementation

constructor TMatriz.inicio;
var i: integer;
Begin
i := 1;
while i < 10 do
Begin
ele[i] := 1;
i := i + 1
End;
End;


procedure TForm1.Button1Click(Sender: TObject);
var A1,A2,A3 : TMatriz;
begin
A1.Inicio;
A2.Inicio;
A3.Inicio;
end;

End.


Es muy curioso por que cuando se crea A1 no me da ning煤n problema en cambio al llamarse el constructor en A2 me aparece el siguiente mensaje:

Project Project2.exe raised exepcion class EAccesViolation with message 'Acces violation at address 00403842 in module Project2.exe. Read of address 7A836652. Process stopped. Use Step or Run to continue.

Parece un error del sistema de todas maneras lo he probado en otro sistema operativo y otra versi贸n de Dephi y me sabe lo mismo.

驴 Alquien sabe por que es ? 驴 Por favor si alguien lo sabe que me lo diga?


GRACIAS.