Tach!
Ich Problem: Ich habe mit eine Klasse namens Tm3u, abgeleitet von TObject, erzeugt, und wollte diese nun mithilfe einer TObjectList .. auflisten halt.
hier mal die Klasse:
Delphi-Quellcode:
type
Tm3u = class(TObject)
dir : String;
list : TStringList;
constructor Create;
destructor Destroy;
end;
constructor Tm3u.Create;
begin
list := TStringList.Create;
dir := '';
end;
destructor Destroy;
begin
list.free;
end;
Soweit so gut ...
Dem Object Werte zuweisen und dann in die Liste (m3ulist) einfügen geht ohne Probleme.
Die Anzahl der Objecte in der Lsite stimmt dann auch ...
Wenn ich dann aber z.B. sage showmessage((m3ulist.items[0] as Tm3u).dir), kriege ich eine 'InvalidCasting...' Fehlermeldung!!!
Warum?
Einfügen tue ich die Objecte so;
Delphi-Quellcode:
var
obj : Tm3u
begin
obj := Tm3u.Create;
obj.dir := 'blabla';
obj.list.assign(irgendsoneliste);
m3ulist.add(obj);
obj.destroy;
end;
Kann mir nu jemand sagen, was ich so dermaßen falsch mache ?
Wär kewl, wenn ..
mfg :: eyeless