TConnectionList

type TConnectionList = class(TFPObjectList)

protected

  procedure Dolog();

  function DoDisconnectOld(); virtual;

  function CreatePoolData();

public

  constructor Create;

  destructor Destroy; override;

  procedure DisconnectAll;

  function DisconnectOld();

  function AddConnection();

  function PopConnection;

  function UnlockConnection();

  property DisconnectTimeout: Integer; [rw]

  property OnLog: TPoolLogEvent; [rw]

end;

TConnectionList

TObject