| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Доступ к элементам двумерного PSafeArray

Darvin ©   (2010-01-14 15:03:00) 

Здравствуйте!
Мне нужно работать с двумерным PSafeArray. Пример работы с одномерным я нашел и отладил. Есть код для создания двумерного массива:

var
 Sign        : array of TDoubleDynArray;
 Value       : OleVariant;
 Bnds        : Array of TVarArrayBound;
 I, J          : Integer;
 Signal      : PSafeArray;
begin
 ...
 <Заполнение двумерного динамического массива Sign>

   SetLength(Bnds, Length(Sign) );
   for I := 0 to Length(Sign) - 1 do begin
     Bnds[I].LowBound := 0;
     Bnds[I].ElementCount := Length(Sign[I]);
   end;
   Signal := SafeArrayCreate ( VT_VARIANT, Length(Sign), Bnds );
   try
     for J := 0 to Length(Sign) - 1 do
       for I := 0 to Length(Sign[J]) - 1 do begin
         Value := Sign[J][I];
         SafeArrayPutElement ( Signal, I, Value );
       end;
   finally
   end;

Вопрос, в функции SafeArrayPutElement второй парамет - индекс элемента. А как получить доступ к элементу двумерного массива?
Смотрел здесь:
http://www.rsdn.ru/article/com/varsafearr.xml
Все примеры для одномерных массивов. В других местах тоже не нашел...

Delphi 2009    Windows Vista

---

Сергей М.   (2010-01-14 15:31:00) [1]

> прикольно


Твоя фимилия, случаем, не Щукина ?)

---

Darvin   (2010-01-14 15:24:00) [2]

Спасибо, прикольно.

---

Сергей М.   (2010-01-14 15:08:00) [3]

На том же RSDN:
http://www.rsdn.ru/forum/delphi/226856.flat.aspx

---

Наверх