TOLEDataObject

type TOLEDataObject = class(TInterfacedObject,IDataObject)

protected

  FNumFormats: Integer;

  FFormatArray: TOLEFormatArray;

  FMediumArray: TOLEMediumArray;

  FAsync: Boolean;

  FInOperation: Boolean;

  function LookupFormatEtc();

  function DupGlobalMem();

public

  constructor Create();

  function GetData();

  function GetDataHere();

  function QueryGetData();

  function GetCanonicalFormatEtc();

  function SetData();

  function EnumFormatEtc();

  function DAdvise();

  function DUnadvise();

  function EnumdAdvise();

end;

TOLEDataObject

TObject,IDataObject