TSQLDBConnectionPool

type TSQLDBConnectionPool = class(TComponent)

protected

  function CreateList; virtual;

  procedure Dolog();

  procedure Lock;

  procedure Unlock;

  function CreateKey(); virtual;

  function CreateDef;

  function DoFindConnection(); virtual;

  procedure DoDisconnect();

public

  constructor Create(); override;

  destructor Destroy; override;

  function CountConnections();

  function CountAllConnections;

  function FindConnection();

  procedure AddConnection();

  function ReleaseConnection();

  property OnLog: TPoolLogEvent; [rw]

end;

TSQLDBConnectionPool

TObject