Array of TStringList erzeugen

[Kroko1999]

Delphi-Quellcode:

type
  TMyClass = class(TObjectList)
    private
    function GetItem(AIndex: Integer): TStringList;

    protected

    public
      procedure NewClass;
      property Items[AIndex: Integer]: TStringList read GetItem;
  end;

function TMyClass.GetItem(AIndex: Integer): TStringList;
begin
  if AIndex<Count then Result := TStringlist(inherited Items[AIndex])
                  else Result := nil;
end;

procedure TMyClass.NewClass;
begin
  Add (TStringList.Create);
end;

procedure Test; // Vor.: MyClass ist created
begin
  myClass.NewClass;
  MyClass.Items[0].Add ('Hallo');
end;