TParams

type TParams = class(TCollection)

protected

  procedure AssignTo(); override;

  function GetDataSet;

  function GetOwner; override;

public

  procedure Create();

  procedure AddParam();

  procedure AssignValues();

  function CreateParam();

  function FindParam();

  procedure GetParamList();

  function IsEqual();

  function ParamByName();

  function ParseSQL();

  procedure RemoveParam();

  procedure CopyParamValuesFromDataset();

  property Dataset: TDataSet; [r]

  property Items: TParam; default; [rw]

  property ParamValues: Variant; [rw]

end;

TParams

TCollection

TObject