Speicherzugriffsfehler bei Array of TButton

**Teekeks**

Hi!
Ich will mir eine Classe erstellen in der ich u.a. ein Array of TButton habe.
Ich kriege nur einen Speicherzugriffs fehler wenn ich einen Button hinzufügen möchte:

zusammenfalten · markieren

Delphi-Quellcode:

			  TButtons= class

  private

    FButtonList:TButtonList;

    FButtonIndex:Integer;

    FOwner:TObject;

  {...}

  public

    procedure AddButton;

    constructor create(Owner:TObject);

  {...}

  end;

implementation

{ TButtons }

procedure TButtons.AddButton;

begin

  inc(FButtonIndex);

  setlength(FButtonList,FButtonIndex);

  FButtonList[FButtonIndex].Button.Create(FOwner); //Hier kriege ich den Fehler

  FButtonList[FButtonIndex].Button.Parent:=FOwner;

end;

constructor TButtons.create(Owner:TObject);

begin

  FOwner:=Owner;

  FButtonIndex:=0;

end;

Weis jemand warum ich diesen Fehler kriege?
Achso: Aufrufen tu ich das so von ner anderen Form:

markieren

Delphi-Quellcode:

			var Buttons:TButtons

{...}

  Buttons:=TButtons.create(Form1,form1,Form1);

  Buttons.AddButton;

gruß Teekeks

Speicherzugriffsfehler bei Array of TButton

Speicherzugriffsfehler bei Array of TButton

Forumregeln