Hallo
DP,
ich möchte einer TList/TObjectList ein eigenes Objekt (TTab = class(TObject)) hinzufügen.
Das Problem ist aber dass ich dabei immer eine
AV bekomme?
Delphi-Quellcode:
TTabs = class(TObject)
private
FTabs : TObjectList;
function GetTab(idx: Integer): TTab;
procedure SetTab(idx: Integer; const Value: TTab);
public
property Tab[idx : Integer] : TTab read GetTab write SetTab;
procedure Add(const ATab : TTab);
procedure Delete(const AIndex : Integer);
constructor Create;
destructor Destroy; override;
end;
procedure TTabs.Add(const ATab: TTab);
begin
FTabs.Add(ATab);
end;