TParams

type TParams = class(TCollection)

protected

  function CreateParseOpts();

  function DoParseSQL(); virtual;

  procedure AssignTo(); override;

  function GetDataSet;

  function GetOwner; override;

  class function ParamClass; virtual;

public

  constructor Create();

  procedure AddParam();

  procedure AssignValues();

  function CreateParam();

  function FindParam();

  procedure GetParamList();

  function IsEqual();

  function GetEnumerator;

  function ParamByName();

  function ParseSQL();

  procedure RemoveParam();

  procedure CopyParamValuesFromDataset();

  property Dataset: TDataSet; [r]

  property Items []: TParam; default; [rw]

  property ParamValues []: Variant; [rw]

end;

TParams

TObject