TVariantField

type TVariantField = class(TField)

protected

  procedure CheckTypeSize(); override;

  function GetAsBoolean; override;

  procedure SetAsBoolean(); override;

  function GetAsDateTime; override;

  procedure SetAsDateTime(); override;

  function GetAsFloat; override;

  procedure SetAsFloat(); override;

  function GetAsInteger; override;

  procedure SetAsInteger(); override;

  function GetAsString; override;

  procedure SetAsString(); override;

  function GetAsWideString; override;

  procedure SetAsWideString(); override;

  function GetAsVariant; override;

  procedure SetVarValue(); override;

  function GetDefaultWidth; override;

public

  constructor Create(); override;

end;

TVariantField

TField

TComponent

TObject