подскажите, как организовать запись\чтение множества переменных типа oleacc.IAccessible используя TList ?

Здравствуйте, istok20, Вы писали:

I>подскажите, как организовать запись\чтение множества переменных типа oleacc.IAccessible используя TList ?
Вот ничего не понял, честно. Откуда, куда и причем тут TList. List только хранит значения.

Здравствуйте, istok20, Вы писали:

I>подскажите, как организовать запись\чтение множества переменных типа oleacc.IAccessible используя TList ?

Если я правильно понял вопрос, то как-то так:

function AddAccessible(AList: TList; AAccessible: IAccessible): Integer; inline;
begin
  Result := AList.Add(Pointer(AAccessible));
  AAccessible._AddRef;
end;

procedure DeleteAccessible(AList: TList; AIndex: Integer); inline;
var
  Accessible: IAccessible;
begin
  Accessible := IAccessible(AList[AIndex]);
  Accessible._Release;
  AList.Delete(AIndex);
end;

function GetAccessible(AList: TList; AIndex: Integer): IAccessible; inline;
begin
  Result := IAccessible(AList[AIndex]);
end;

Здравствуйте, Aniskin, Вы писали:

A>Здравствуйте, istok20, Вы писали:

I>>подскажите, как организовать запись\чтение множества переменных типа oleacc.IAccessible используя TList ?

A>Если я правильно понял вопрос, то как-то так:

спасибо, то что нужно!