TatScripterEventBroker.InternalUnsetEvent

BIZ TMS Scripter
1

Hello,

I also use Scripter to work with DevExpress components. In this case, sometimes AInstance <> nil but not exists. Because of this, I had to fix the code. I replaced the existing code

  if (AInstance = nil) or (AInstance.InheritsFrom(TComponent) and (csDestroying in TComponent(AInstance).ComponentState)) then
  begin
    Result := False;
    Exit;
  end;

with

  try
    Result := (AInstance = nil) or (AInstance.InheritsFrom(TComponent) and (csDestroying in TComponent(AInstance).ComponentState));
  except
    Result := False;
  end;
  if not Result then
    Exit;

Please change your code too, as the logic does not change.

TIA and best regards
Branko

2

Sorry, but this is not good code. You must find out in which situation AInstance is destroyed and not nil and solve that situation.