type

  TOPCStringsEnumerator = class(TComObject, IEnumString)

  private

    nextIndex:Integer;

    strList:TStringList;

  public

    constructor Create(const inStrings: TStringList);

    destructor Destroy;override;

 

   function Next(celt: Longint; out elt; pceltFetched: PLongint): HResult; stdcall;

//функция  //функция //функция  //функция //функция  //функция

 

 

    function Skip(celt: Longint): HResult; stdcall;

    function Reset: HResult; stdcall;

    function Clone(out enm: IEnumString): HResult; stdcall;

  end;

 

 

function TOPCStringsEnumerator.Next(celt: Longint; out elt; pceltFetched: PLongint): HResult;

var

 i: integer;

begin

 i:=0;

 if celt < 1 then

  begin

   Result:=RPC_X_ENUM_VALUE_OUT_OF_RANGE;

   Exit;

  end;

 if pceltFetched = nil then

  begin

   Result:=E_INVALIDARG;

   Exit;

  end;

 

 Result := S_FALSE;

 while (i < celt) do

  begin

   if (nextIndex < strList.Count) then

    begin

     TPointerList(elt)[i]:=StringToLPOLESTR(strList[nextIndex]);

     Inc(i);

     Inc(nextIndex);

    end

   else

    begin

     Result:=RPC_X_ENUM_VALUE_OUT_OF_RANGE;

     Break;

    end;

  end;