Memory Leak mit IBEvents

[Delphianer]

Hallo,

ich habe mit XE einen fehlerhaften cast in IBEvents. Wahrscheinlich ist der Fehler ja schon länger drin.

Delphi-Quellcode:

destructor TIBEvents.Destroy;
begin
  try
    if Registered then
      UnRegisterEvents;
  except
    // silence any exceptions which might be raised
    // by UnRegisterEvents during destruction
  end;
  If Assigned(FDatabase) then
    FDatabase.RemoveEventNotifier(Self);
  FThreads.Free;
// LL 06.04.2011
//  IF Assigned(FEvents) then
//    TStringList(FEvents).OnChange := nil;
  FEvents.Free;
// LL 06.04.2011
  IF Assigned(FUniEvents) then
    TStringList(FUniEvents).OnChange := nil;
  FUniEvents.Free;
  FGDSLibrary := nil;
  inherited Destroy;
end;

Unter Umständen ist es dieser Fehler, der bei Dir gemeldet wird.

Lutz

[Rainer Wolff]

Jepp, genau der isses, so wie es aussieht. Der Fehler ist weg.

Danke!

Gruß Rainer