TBCDField

type TBCDField = class(TNumericField)

protected

  procedure CheckTypeSize(); override;

  function GetAsCurrency; override;

  function GetAsFloat; override;

  function GetAsLongint; override;

  function GetAsString; override;

  function GetValue();

  function GetAsVariant; override;

  function GetDataSize; override;

  function GetDefaultWidth; override;

  procedure GetText(); override;

  procedure SetAsFloat(); override;

  procedure SetAsLongint(); override;

  procedure SetAsString(); override;

  procedure SetAsCurrency(); override;

  procedure SetVarValue(); override;

public

  constructor Create(); override;

  function CheckRange();

  property Value: Currency; [rw]

published

  property Precision: LongInt; [rw]

  property Currency: Boolean; [rw]

  property MaxValue: Currency; [rw]

  property MinValue: Currency; [rw]

  property Size;

end;

TBCDField

TNumericField

TField

TComponent

TObject