versiones - Delphi: Infracción de acceso al final del constructor Create()

delphi xe2 full

Question

Tengo una clase muy básica y simple como esta:

Cargador de la unidad;

interface

uses
  Vcl.Dialogs;

type
  TLoader = Class(TObject)
  published
      constructor Create();
  end;

implementation

{ TLoader }    
constructor TLoader.Create;
begin
   ShowMessage(''ok'');

end;

end.

Y desde Form1 lo llamo así:

procedure TForm1.Button1Click(Sender: TObject);
var
 the : TLoader;
begin
  the := the.Create;
end;

Ahora, justo después de the the := the.Create , delphi muestra el mensaje con ''ok'' y luego me da un error y dice Project Project1.exe raised exception class $C0000005 with message ''access violation at 0x0040559d: read of address 0xffffffe4''.

También muestra esta línea:

constructor TLoader.Create;
begin
   ShowMessage(''ok'');

end; // <-------- THIS LINE IS MARKED AFTER THE ERROR.

Soy nuevo en Delphi. Estoy usando Delphi XE2 y no pude arreglar este error. ¿Alguien me muestra un camino o tiene una solución para esto?

Answer 1

Tienes la sintaxis incorrecta. Si está construyendo un nuevo objeto, debe usar el nombre de la clase, no el nombre de la variable, en la llamada del constructor:

procedure TForm1.Button1Click(Sender: TObject);
var
 the : TLoader;
begin
  the := TLoader.Create;
end;

Answer 2

var
  the : TLoader;
begin
  the := the.Create;

Es incorrecto. Debería ser

var
  the : TLoader;
begin
  the := TLoader.Create;