TtiOID

type TtiOID = class(TtiBaseObject) end;

protected

  function GetAsString; virtual; abstract;

  procedure SetAsString(); virtual; abstract;

  function GetAsVariant; virtual; abstract;

  procedure SetAsVariant(); virtual; abstract;

public

  constructor Create; virtual;

  property AsString: string; [rw]

  property AsVariant: variant; [rw]

  function IsNull; virtual; abstract;

  procedure AssignToTIQueryParam(); virtual; abstract;

  procedure AssignToTIQuery();

  procedure AssignFromTIQuery();

  function EqualsQueryField(); virtual; abstract;

  procedure Assign(); virtual;

  function Compare(); virtual; abstract;

  function Equals(); virtual;

  procedure SetToNull; virtual; abstract;

  function Clone;

  function NullOIDAsString; virtual; abstract;

TtiOID

TtiBaseObject,IInterface

TObject