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