| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
safearray
reg © (2008-02-02 19:07:00)Подскажите (желательно на маленьком примере) как инициализировать такой массив и как добавить в него два элемента. Заранее спасибо!
DiamondShark (2008-02-13 15:20:00) [1]
> for i:=0 to 1 do
> SafeArrayPutElement(m,i,i);
для начала:
for i:=0 to 1 do
begin
z := i;
OleCheck(SafeArrayPutElement(m,i,z));
end;
Сергей М. (2008-02-13 15:10:00) [2]PSafeArray - это тот же самый PVarArray.
Создай обычный VarArray (см. VarArrayCreate) и получи сcылку на SafeArray (см. VarArrayAsPSafeArray) на управляемые им данные.
reg (2008-02-13 14:12:00) [3]Извиняюсь, что поздно отвечаю, просто времени не было....
В общем пробую работать с помощью модуля ActiveX, используя готовые функции но следующий код не работает
var
i:integer;
z:variant;
m:psafearray;
begin
m := SafeArrayCreateVector(varInteger,0,2);
for i:=0 to 1 do
SafeArrayPutElement(m,i,i);
for i:=0 to 1 do begin
SafeArrayGetElement(m,i,z);
listbox1.items.add(z);
end;
end;
Подскажите пожалуйста, что я делаю не так.
KilkennyCat (2008-02-02 20:57:00) [4]http://www.gekko-software.nl/Delphi/art08.htm
| |
