TStringList - Zugriffsverletzung beim erstellen

[stiftII]

Hallo zusammen.

Ich experimentiere gerade mit eigenen Klassen. Jetzt hab ich ein Problem

Ich habe folgende Klasse erstellt:

Delphi-Quellcode:

  test = class
    All : TStrings;
    Male : TStringList;
    Female : TStringList;
    procedure Create;
  end;

  procedure test.Create;
  begin
    All := TStrings.Create;
    Male := TStringList.Create;
    Female := TStringList.Create;
  end;

Beim aufrufen von test.create, wird eine Zugriffsverletzung erzeugt.

Wie kann ich das vermeiden, und warum ist das so ?

Liebe Grüße,
stift

[Ralf Kaiser]

Du verwendest "TStrings"! Das ist eine abstrakte Basisklasse von der man keine Instanzen erstellen sollte.

Verwende hier eingach auch TStringList

Bei einer abstrakten Basisklasse werden erst einmal nur die Methoden definiert die es hinterher in einer abgeleiteten Klasse geben wird. Diese Methoden haben keinen Inhalt (also keinen Code). Der Code kommt erst in der Ableitung dazu.

Du solltest eigentlich beim compillieren des Programmes für die betreffende Zeile auch eine Compilerwarnung sehen!

[stiftII]

Hallo,
Bei TStringList passiert genua dasselbe .

-
stift

[DeddyH]

Das Ding heißt auch constructor.

Delphi-Quellcode:

test = class
    All : TStrings;
    Male : TStringList;
    Female : TStringList;
    constructor Create;
  end;

  constructor test.Create;
  begin
    All := TStringList.Create;
    Male := TStringList.Create;
    Female := TStringList.Create;
  end;

Und im destructor die angelegten Objekte wieder freigeben nicht vergessen.

[mjustin]

Zitat von stiftII:

Hallo zusammen.

Ich experimentiere gerade mit eigenen Klassen. Jetzt hab ich ein Problem

Ich habe folgende Klasse erstellt:

Delphi-Quellcode:

  test = class
    All : TStrings;
    Male : TStringList;
    Female : TStringList;
    procedure Create;
  end;

Beim aufrufen von test.create, wird eine Zugriffsverletzung erzeugt.

Wie kann ich das vermeiden, und warum ist das so ?

test ist eine Klasse. Um eine Instanz von ihr zu benutzen, muss man sie mit einem Konstruktor erzeugen.

Create ist hier aber kein Konstruktor, sondern nur eine Prozedur.

So sieht es mit einem Konstruktor aus:

Delphi-Quellcode:

  
  Test = class
    All : TStrings;
    Male : TStrings;
    Female : TStrings;
    constructor Create;
  end;

  constructor Test.Create;
  begin
    All := TStringList.Create;  <-- hier TStringlist
    Male := TStringList.Create;  <-- hier TStringlist
    Female := TStringList.Create;  <-- hier TStringlist
  end;

Tipp: wenn die Instanz nicht mehr benötigt und mit Free freigegeben wird, sollte auch der Speicher der für die TStrings belegt wird, über einen Destruktor freigegeben werden. Sonst entstehen Speicherlecks, die sich leicht zu Problemen anhäufen können.

Delphi-Quellcode:

  
  Test = class
    All : TStrings;
    Male : TStrings;
    Female : TStrings;
    constructor Create;
    destructor Destroy; override;
  end;

Viele Grüße,

[stiftII]

Danke für den Hinweis.

Es wird leider immer noch eine "Access Violation" erzeugt.

~stift

// Das ist der gesamte Code
:

Delphi-Quellcode:

unit Unit1;

interface

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

type

Test = class 
    All : TStrings;
    Male : TStrings;
    Female : TStrings;
    constructor Create;
  end;


  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  blub: test;
implementation

{$R *.dfm}



  constructor Test.Create; 
  begin 
    All := TStringList.Create;
    Male := TStringList.Create;
    Female := TStringList.Create;  
  end;

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

end.

[DeddyH]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  blub := test.Create;
end;

[stiftII]

Ach du meine Güte ;D...

Wie konnte ich das nur übersehen .

Danke für eure nette Hilfe .

~
stift

[Ralf Kaiser]

Zitat von DeddyH:

Das Ding heißt auch constructor.

Autsch. Da war ich beim Antworten aber auch ziemlich blind!

[DeddyH]

Tröste Dich, ich hatte das auch nicht auf Anhieb gesehen