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