TObjectlist.add bei Objecten mit Parametern im create Aufruf

**Klaus01**

Hallo,

hier meine Typendeklaration:

Delphi-Quellcode:

			 
TfeedType = set of (audio,video,html,none);

PfeedSet = ^TfeedSet;

TfeedSet = record

  feedType : TfeedType;

  itemTitle: String[125];

  itemUrl      : String[125];

  prev,next: PfeedSet;

end;

Tfeed = class(TObject)

   feedBD: File of TfeedSet;

   item: TfeedSet;

   title:String[125];

   DLPath:String[125];

   itemList: PfeedSet;

   firstItem,lastItem:pointer;

 private

   constructor create(aDLPath:String;aFeedTitle:String);

   destructor free;

 public

   procedure addItem(aFeedItem:TfeedSet);

   procedure deleteItem(aPointer:Pointer);

   function findItem(aTitle:String):pointer;

   function getItem(aPointer:Pointer):TFeedSet;

end;

Bei dem create Constructor von Tfeed benötige ich Parameter die dem Objekt übergeben werden sollen.

Wenn ich jetzt mehrere Objekte in einer ObjectList verwalten möchte, wird ja
wenn ich TObjectList.add(TFeed) das Object in der Liste instantiiert.

Wie kann ich der ganzen Geschichte dann Parameter mitgeben?

Oder sollte ich das mit der ObjectList sein lassen und anstelle dessen ein dynamisches Array hernehmen.

Brauche mal einen kleinen Denkanstoß.

Grüße
Klaus

TObjectlist.add bei Objecten mit Parametern im create Aufruf

TObjectlist.add bei Objecten mit Parametern im create Aufruf

Forumregeln