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