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

Wie ist die Klasse TButtonList deklariert?

so:
  TButtonlist=array of TButton;

Was passiert, wenn Du das mal so versuchst?FButtonList[FButtonIndex] := TButton.Create(FOwner);

Auf den ersten Blick fällt mir auf, dass Du Setlength() mit ButtonIndex aufrufst. Setlength ist nicht 0-indiziert.
Probier' malsetlength(FButtonList,FButtonIndex+1); Grüße, Messie

Direkt davor steht doch

Zitat:

inc(FButtonIndex);

Also sollte das schon passen.

[edit] Aber stimmt, der Index beim Zugriff stimmt nicht, hier sollte man vielleicht lieber High() verwenden. [/edit]

Wenn du dein Array auf die Länge n setzt, ist der Index des letzten Elements n-1.

Zitat von DeddyH:

Was passiert, wenn Du das mal so versuchst?FButtonList[FButtonIndex] := TButton.Create(FOwner);

Das:

Zitat von Lazarus:

Error: Incompatible type for arg no. 1: Gor"TObject",expected "TComponent"

OK. ich hab eure varianten jetzt schon ausprobiert aber es Funktioniert trotzdem nicht

Klar, Du hast FOwner ja auch als TObject und nicht als TComponent deklariert.

Oops: ich hab zuviel weggekürzt: da stand:

markieren

Delphi-Quellcode:

    FComponent:TComponent;
    FWincontrol:TWincontrol;
{...}
  FButtonList[High(FButtonList)].Create(FComponent);
  FButtonList[FButtonIndex].Parent:=FWinControl;
{...}