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

Вниз

Доступ к элементам двумерного PSafeArray   Найти похожие ветки 

← →
Darvin   (2010-01-14 15:03) [0]

Здравствуйте!
Мне нужно работать с двумерным 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:08) [1]

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

---

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

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

---

← →
Сергей М. ©   (2010-01-14 15:31) [3]

> прикольно


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

---

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

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

Наверх

Память: 0.47 MB
Время: 0.018 c