Использование Microsoft ScriptControl (статья)

Code:

else

if FOwner is TStrings then begin

   with TStrings(FOwner) do begin

     while (FEnumPosition < Count) and (I < celt) do begin

       TVariantList(rgvar)[I] := TStrings(FOwner)[FEnumPosition];

       Inc(I);

       Inc(FEnumPosition);

     end;

   end;

end else

   Result := S_FALSE;

if I <> celt then

   Result := S_FALSE;

if Assigned(pceltFetched) then

   pceltFetched^ := I;

end;

Code:

function TVCLEnumerator.Skip(celt: LongWord): HResult;

var

Total: Integer;

begin

Result := S_FALSE;

if FOwner is TWinControl then

   Total := TWinControl(FOwner).ControlCount

else

if FOwner is TCollection then

   Total := TCollection(FOwner).Count

else

if FOwner is TStrings then

   Total := TStrings(FOwner).Count

else

   Exit;

if FEnumPosition + celt <= Total then begin

   Result := S_OK;

   Inc(FEnumPosition, celt)

end;

end;

Code:

function TVCLEnumerator.Clone(out Enum: IEnumVariant): HResult;

var

NewEnum: TVCLEnumerator;

begin

NewEnum := TVCLEnumerator.Create(FOwner, FScriptControl);

NewEnum.FEnumPosition := FEnumPosition;

Enum := NewEnum as IEnumVariant;

Result := S_OK;

end;

Code:

case DispId of

  DISPID_NEWENUM: begin

       // У объекта запрашивают интерфейс IEnumVariant для ForEach

       // создаем класс, реализующий этот интерфейс

       OleVariant(VarResult^) := TVCLEnumerator.Create(FOwner,

         FScriptControl) as IEnumVariant;

     end;