Object aus TOPbjectList nicht Castbar

[eyeless]

Also besser so:

Delphi-Quellcode:

type
 Tm3u = class(TObject)
  dir : String;
  list : TStringList;
  constructor Create;
  destructor Destroy; override;
 end;

constructor Tm3u.Create;
begin
inherited Create; //muss nicht, kann aber, oder?
list := TStringList.Create;
dir := '';
end;

destructor Destroy;
begin
list.free;
end;

// und dann weiter unten ...

var
 obj : Tm3u
begin
 obj := Tm3u.Create;
 obj.dir := 'blabla';
 obj.list.assign(irgendsoneliste);
 m3ulist.add(obj);
 //obj.free; -> weg, und dafür m3ulist.AOwnsObjects := true beim erstellen der Liste ...
end;