TClassList Wie MyClass hinzufügen?

[khamulvsbombadil]

Hallo Leute,

Ich beschäftige mich zum ersten mal mit TClassList und leider fand ich im INet wenige Infos.
Folgendes ist mein Problem:
Ich habe eine Klasse TMyClass, welche Infos über Daten enthält, und wollte Instanzen (hoffe, dieses Wort ist hier richtig^^) davon in eine Liste packen.

Folgender Codeausschnitt mal zum Verständnis:

Delphi-Quellcode:

TMyClass = class
 private
   ...
 public
   ...
end;
TMyProgramm = class(TForm);
 procedure MyClassAufbereitung;

var ...
    MyClassListe : TClassList;

procedure TMYProgramm.MyClassAufbereitung;
var MyClassData:TMyClass;
    i:integer;
    DataPfadList:TStringList;
begin
 DataPfadList := TStringList.Create;
 DataPfadList.LoadFromFile('.\PfadListe.txt');
 MyClassListe := TClassList.Create;
 for i:=0 to DataPfadList.count do
 begin
   MyClassData := TMyClass.Create;
    MyClassData.LoadInfos(DataPfadList.Strings[i]);
   MyClassListe.Add(MyClassData);                    //Hier tritt der Fehler auf
   MyClassData.Free;
 end;
end;

An der angegebenen Stelle im Code bekomme ich als Fehlermeldung

Zitat:

Inkompatible Typen: 'TClass' und 'TMyClass'

Meine TMyClass funktioniert in sich super, meine Frage nun: Wie erstelle ich davon eine Liste, bzw. wo liegt mein Fehler?

Ich freue mich über Antwort und Danke schonmal im Vorraus,

Mit freundlichen Grüßen,
khamulvsbombadil

[DeddyH]

Hallo und Willkommen in der DP ,

ich selbst habe noch nie mit TClassList gearbeitet (und musste daher erst einmal nachlesen, was das überhaupt ist), aber wenn ich das richtig verstanden habe, bräuchtest Du stattdessen eine TObjectList, denn Du willst dort ja Instanzen hinterlegen und keine Klassen.

[himitsu]

Ich vermute auch, daß du eigentlich eine TObjectList haben möchtest?

TClassList = Klassen
TObjektList = Objekte = instantiirte Klassen


PS: Die TClassList wird so versendet:
MyClassListe.Add(TMyClass); Es wird also eine Liste mit Klassen erstellt.

[DeddyH]

Ja eben, so hab ich das auch verstanden, für sein Vorhaben also nicht zu gebrauchen (sonst hätte er je Objekt TMyClass drinstehen, käme an die Objekte aber nicht heran)

[khamulvsbombadil]

Hey,

Vielen Dank, das war es!!
Jetzt kanns weitergehen

Viele grüße,
khamulvsbombadil