Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.014 c
3-1236236249
ford
2009-03-05 09:57
2010.03.14
BLOB


2-1263385773
fords
2010-01-13 15:29
2010.03.14
установить таймаут


2-1263355369
Дмитрий С
2010-01-13 07:02
2010.03.14
Как правильно "захватить" исключение?


2-1263305551
Б
2010-01-12 17:12
2010.03.14
Функция ExtEscape. Применение?


15-1261508714
chery
2009-12-22 22:05
2010.03.14
помогите пожалуйста написать программу в Delphi