TSingleField

type TSingleField = class(TNumericField)

protected

  function GetAsBCD; override;

  function GetAsSingle; override;

  function GetAsFloat; override;

  function GetAsLargeInt; override;

  function GetAsLongWord; override;

  function GetAsInteger; override;

  function GetAsString; override;

  function GetAsVariant; override;

  function GetDataSize; override;

  procedure GetText(); override;

  procedure SetAsBCD(); override;

  procedure SetAsSingle(); override;

  procedure SetAsFloat(); override;

  procedure SetAsLargeInt(); override;

  procedure SetAsLongWord(); override;

  procedure SetAsInteger(); override;

  procedure SetAsString(); override;

  procedure SetVarValue(); override;

public

  constructor Create(); override;

  function CheckRange();

  property Value: Single; [rw]

published

  property Currency: Boolean; [rw]

  property MaxValue: Single; [rw]

  property MinValue: Single; [rw]

  property Precision: LongInt; [rw]

end;

TSingleField

TNumericField

TField

TObject