TOLEEnumFormatEtc

type TOLEEnumFormatEtc = class(TInterfacedObject,IEnumFormatEtc)

protected

  FIndex: Integer;

  FNumFormats: Integer;

  FFormatArray: TOLEFormatArray;

  procedure CopyFromFormatArray();

  procedure CopyFormatEtc();

public

  constructor Create();

  destructor Destroy; override;

  function Next();

  function Skip();

  function Reset;

  function Clone();

end;

TOLEEnumFormatEtc

TObject,IEnumFormatEtc