Object aus TOPbjectList nicht Castbar

[marabu]

Noch besser so:

Delphi-Quellcode:

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

constructor Tm3u.Create;
begin
  inherited Create; // initialisiert den class record
  list := TStringList.Create;
  dir := ''; // macht inherited schon
end;

destructor Tm3u.Destroy;
begin
  list.free;
  inherited; // nur der Ordnung halber
end;

// und dann weiter unten ...

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

marabu