Einzelnen Beitrag anzeigen

Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.771 Beiträge
 
Delphi 10.4 Sydney
 
#1

TObjectlist.add bei Objecten mit Parametern im create Aufruf

  Alt 2. Nov 2006, 13:56
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
Klaus
  Mit Zitat antworten Zitat