The below came in really useful in an old project I took over that was full of bugs having to do with improper casts and FreeAndNil usage. First the examples. procedure TMyServer.UnbindFromIdTcpServerStatusContext(const aContext: TIdContext); var lClientSession: TClientSession; begin lClientSession := TObjectHelper.Cast(aContext.Data); ... end; type TBaseDataInterface = class(TObject) strict private FDatabase: TIBDatabase; FTransaction: TIBTransaction; ... end; […]
Weiterlesen...