TParam

type TParam = class(TCollectionItem)

protected

  procedure AssignParam();

  procedure AssignTo(); override;

  function GetAsBoolean;

  function GetAsBytes;

  function GetAsCurrency;

  function GetAsDateTime;

  function GetAsFloat;

  function GetAsInteger;

  function GetAsLargeInt;

  function GetAsLongWord;

  function GetAsMemo;

  function GetAsSingle;

  function GetAsString;

  function GetAsAnsiString;

  function GetAsUnicodeString;

  function GetAsUTF8String;

  function GetAsWideString;

  function GetAsVariant;

  function GetAsFMTBCD;

  function GetDisplayName; override;

  function GetIsNull;

  function IsEqual();

  procedure SetAsBCD();

  procedure SetAsBlob();

  procedure SetAsBoolean();

  procedure SetAsByte();

  procedure SetAsBytes();

  procedure SetAsCurrency();

  procedure SetAsDate();

  procedure SetAsDateTime();

  procedure SetAsFloat();

  procedure SetAsInteger();

  procedure SetAsLargeInt();

  procedure SetAsLongWord();

  procedure SetAsMemo();

  procedure SetAsShortInt();

  procedure SetAsSingle();

  procedure SetAsSmallInt();

  procedure SetAsString();

  procedure SetAsAnsiString();

  procedure SetAsUTF8String();

  procedure SetAsUnicodeString();

  procedure SetAsWideString();

  procedure SetAsTime();

  procedure SetAsVariant();

  procedure SetAsWord();

  procedure SetAsFMTBCD();

  procedure SetDataType();

  procedure SetText();

public

  constructor 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 AsBCD: Currency; [rw]

  property AsBlob: TBlobData; [rw]

  property AsBoolean: Boolean; [rw]

  property AsByte: LongInt; [rw]

  property AsBytes: TBytes; [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 AsLongWord: LongWord; [rw]

  property AsMemo: string; [rw]

  property AsShortInt: LongInt; [rw]

  property AsSingle: Single; [rw]

  property AsSmallInt: LongInt; [rw]

  property AsString: string; [rw]

  property AsAnsiString: AnsiString; [rw]

  property AsUTF8String: UTF8String; [rw]

  property AsUnicodeString: UnicodeString; [rw]

  property AsTime: TDateTime; [rw]

  property AsWord: LongInt; [rw]

  property AsFMTBCD: TBCD; [rw]

  property Bound: Boolean; [rw]

  property Dataset: TDataSet; [r]

  property IsNull: Boolean; [r]

  property NativeStr: string; [rw]

  property Text: string; [rw]

  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]

  property Value: Variant; [rws]

end;

TParam

TObject