[gelöst] ObjectList und Interfaces

[Danccce]

Hallo zusammen,

ich habe ein Interface und zwei (mehrere) abgeleitet Klassen geschrieben:

Code: Alles auswählen

  IMyInterface = interface(IUnknown)
    ['{CC79C31B-E310-4D22-BCE9-0A8E88DA917E}']
    procedure doSomething;
  end;
 
  TTestClass1 = Class(TInterfacedObject, IMyInterface)
  public
    procedure doSomething;
  end;
 
  TTestClass2= Class(TInterfacedObject, IMyInterface)
  public
    procedure doSomething;
  end;        

Objekte der Klassen möchte ich in eine ObjectList packen, abarbeiten und danach löschen. Vereinfacht so:

Code: Alles auswählen

procedure mainLoop;
var
  objList : TObjectList;
  obj1    : TTestClass1;
  obj2    : TTestClass2;
begin
  // ObjectListe und Objekte instanziieren
  objList := TObjectList.create(false);
  obj1    := TTestClass1.Create;
  obj2    := TTestClass2.Create;
 
  // Objekte der Liste hinzufügen
  objList.Add(obj1);
  objList.Add(obj2);
 
  // ObjectListe abarbeiten und verkleinern
  while objList.First<> nil do begin
    (objList.First as IMyInterface).doSomething;
    objList.Remove(objList.First);
  end;
end;

Jedoch denke ich, das dies zu einem Speicher-Leck führt, da die Objecte wegen objList := TObjectList.create(false); nicht gelöscht werden.
Ändere ich jedoch

Code: Alles auswählen

objList := TObjectList.create(true);

erhalte ich einen RunError 204.

Was mache ich falsch?

Vielen Dank und besten Gruß
Marc

[m.fuchs]

Benutzt du COM oder möchtest du die Interfaces im klassischen Sinne nutzen?

Im zweiten Fall fügst du in den Compilerdirektiven einfach folgendes hinzu:

Code: Alles auswählen

{$Interfaces Corba}

Dann änderst du deine Interface-Deklaration ab:

Code: Alles auswählen

IMyInterface = interface
    procedure doSomething;
  end;

Und dann verfluchst du die Verantwortlichen von Borland, die damals der Meinung waren COM und Interfaces einfach so zusammenzumixen.

Im ersten Fall: keine Ahnung.

[Socke]

Falls du COM-Interfaces verwendest, könntest du auch TInterfaceList verwenden.

[Danccce]

Danke, ich werd die Corba-Version verwenden...

Besten Gruß
Marc