TgsParamList

TgsParamList = class(TObjectList)
  public
    function AddParam(AnParamName, AnDisplayName: String; AnParamType: TParamType; const AnComment: String): Integer; 
    function AddLinkParam(AnParamName, AnDisplayName: String; AnParamType: TParamType; AnTableName, AnPrimaryField, AnDisplayField, AnLinkConditionFunction, AnLinkFunctionLanguage: String; const AnComment: String): Integer; 
    procedure SaveToStream(AnStream: TStream); 
    procedure LoadFromStream(AnStream: TStream); 
    procedure Assign(const Source: TgsParamList); 
    function GetVariantArray: Variant;
    procedure SetVariantArray(AnVarArray: Variant);
 
    property Params[const I: Integer]: TgsParamData read GetParam write SetParam;
  end;