Текущий архив: 2003.11.13;
Скачать: CL | DM;

Вниз

Коллекции автоматизации.   Найти похожие ветки 

← →
kanych ©   (2003-11-04 03:40) [0]

Где можно найти примерчики для Delphi 7?
Особенно интересует реализация метода IEnumVARIANT.Next.

---

← →
REA ©   (2003-11-04 10:27) [1]

Ну вот например (сырцы D7):

function TScriptEnumerator.Next(celt: LongWord; var rgvar: OleVariant; out pceltFetched: LongWord): HResult;
begin
if FReset then
begin
FIterating := False;
FReset := False;
FOwnerData := nil;
FIterating := True;
FEOF := not FScriptObj.moveFirst;
end
else
FEOF := not FScriptObj.moveNext;

if not FEOF then
begin
if celt = 1 then
begin
rgVar := FScriptObj.item;
if @pceltFetched <> nil then
pceltFetched := celt;
end
else
begin
Result := E_NOTIMPL;
Exit;
end;
end;
if FEOF then
Result := S_FALSE
else
Result := S_OK;
end;

---

← →
kanych ©   (2003-11-05 04:15) [2]

Спасибо.

---

Страницы: 1 вся ветка

Текущий архив: 2003.11.13;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.028 c