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