TParam

type TParam = class(TCollectionItem)

protected

  procedure AssignParam();

  procedure AssignTo(); override;

  function GetAsBoolean;

  function GetAsCurrency;

  function GetAsDateTime;

  function GetAsFloat;

  function GetAsInteger;

  function GetAsLargeInt;

  function GetAsMemo;

  function GetAsString;

  function GetAsVariant;

  function GetDisplayName; override;

  function GetIsNull;

  function IsEqual();

  procedure SetAsBlob();

  procedure SetAsBoolean();

  procedure SetAsCurrency();

  procedure SetAsDate();

  procedure SetAsDateTime();

  procedure SetAsFloat();

  procedure SetAsInteger();

  procedure SetAsLargeInt();

  procedure SetAsMemo();

  procedure SetAsSmallInt();

  procedure SetAsString();

  procedure SetAsTime();

  procedure SetAsVariant();

  procedure SetAsWord();

  procedure SetDataType();

  procedure SetText();

  function GetAsWideString;

  procedure SetAsWideString();

public

  procedure Create();

  procedure Assign(); override;

  procedure AssignField();

  procedure AssignToField();

  procedure AssignFieldValue();

  procedure AssignFromField();

  procedure Clear;

  procedure GetData();

  function GetDataSize;

  procedure LoadFromFile();

  procedure LoadFromStream();

  procedure SetBlobData();

  procedure SetData();

  property AsBlob: TBlobData; [rw]

  property AsBoolean: Boolean; [rw]

  property AsCurrency: Currency; [rw]

  property AsDate: TDateTime; [rw]

  property AsDateTime: TDateTime; [rw]

  property AsFloat: Double; [rw]

  property AsInteger: LongInt; [rw]

  property AsLargeInt: LargeInt; [rw]

  property AsMemo: String; [rw]

  property AsSmallInt: LongInt; [rw]

  property AsString: String; [rw]

  property AsTime: TDateTime; [rw]

  property AsWord: LongInt; [rw]

  property Bound: Boolean; [rw]

  property Dataset: TDataSet; [r]

  property IsNull: Boolean; [r]

  property NativeStr: String; [rw]

  property Text: String; [rw]

  property Value: Variant; [rws]

  property AsWideString: WideString; [rw]

published

  property DataType: TFieldType; [rw]

  property Name: String; [rw]

  property NumericScale: Integer; [rw]

  property ParamType: TParamType; [rw]

  property Precision: Integer; [rw]

  property Size: Integer; [rw]

end;

TParam

TCollectionItem

TObject