IField

type IField = interface(IStreamPersist)

  function GetAsInteger;

  procedure SetAsInteger();

  function GetAsBoolean;

  procedure SetAsBoolean();

  function GetAsString;

  procedure SetAsString();

  function GetAsCurrency;

  procedure SetAsCurrency();

  function GetAsDateTime;

  procedure SetAsDateTime();

  function GetValue;

  procedure SetValue();

end;

IField

IInterface