Klasse die benötigte Klasse erstellt

[Sascha L]

Danke für eure Hilfen!!

Ich habe nun folgende Lösung, mit der ich zufrieden bin und die gleichzeitig sogar mehr Funktionalität hat:

Delphi-Quellcode:

  TFeedParser = class(TPersistent)
    private
      fFeeds: TList;
      function GetFeed(Index: Integer): TParser;
    public
      constructor Create;
      destructor Destroy;
      procedure AddFeed(XMLDoc: TStream);
      property Feeds[Index: Integer]: TParser read GetFeed;
  end;

Bei "AddFeed" wird dann überprüft um was für einen Feed es sich handelt und dann demendsprechend z.B. TRSSParser hinzugefügt.

Das klappt einwandfrei und das tolle ist, dass ich nun sogar mehrere und vor allem unterschiedliche Feeds hinzufügen kann, ohne z.B. einen Array zu erstellen