| DP News-Robot |
10. Okt 2018 07:11 |
TObjectHelper for easier debugging a cast mismatch and a typed FreeAndNil
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... |
