Klassenproblem mit Create (Zugriffsverletzung)

[hitzi]

Hallo,

irgendwie steh auf dem Schlauch ...

folgender Code verursacht eine Zugriffsverletzung.

Delphi-Quellcode:

unit uExplorer;

interface

uses
  Classes, Windows, ComCtrls;

  type
  TExplorerView = class
  private
    intTest : integer;
  public
    constructor Create(JustATest : integer);
    destructor Free();
  end;

implementation

constructor TExplorerView.Create(JustATest : integer);
begin
  inherited Create;
  intTest := JustATest; //ZUGRIFFSVERLETZUNG
end;

destructor TExplorerView.Free();
begin
  inherited Free;
end;

end.

Aufgerufen wird so:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ListView1: TListView;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
    fExplorer : TExplorerView;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  fExplorer.Create(2);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FreeAndNil(fExplorer);
end;

end.

Irgendwo hab ich was übersehen, aber ich seh im Moment "den Wald vor lauter Bäumen nicht mehr" :(

Gruss

[Luckie]

Delphi-Quellcode:

var
  fE: TExplorerView;

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  fE := TExplorerView.Create(2); 
end;

Du musst auch erst mal eine Instanz bilden. Nur so eine Methode der Klasse aufrufen, ohne vorher eine Instanz angelegt zu haben, kann ja nur schief gehen.

[hitzi]

:roll:

Ich wusste doch, dass es was ganz simples sein muss. Hab die ganze Zeit in der Klasse gesucht, aber dass ich mir mal den Code zum Aufrufen ansehe, darauf bin ich nicht gekommen. Ich brauch unbedingt mal wieder Urlaub. :stupid:

Danke Luckie