Скачать: CL | DM;

safearray   Найти похожие ветки 

← →
reg   (2008-02-02 19:07) [0]

Подскажите (желательно на маленьком примере) как инициализировать такой массив и как добавить в него два элемента. Заранее спасибо!

---

← →
KilkennyCat ©   (2008-02-02 20:57) [1]

http://www.gekko-software.nl/Delphi/art08.htm

---

← →
reg   (2008-02-13 14:12) [2]

Извиняюсь, что поздно отвечаю, просто времени не было....
В общем пробую работать с помощью модуля 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;

Подскажите пожалуйста, что я делаю не так.

---

← →
Сергей М. ©   (2008-02-13 15:10) [3]

PSafeArray - это тот же самый PVarArray.

Создай обычный VarArray (см. VarArrayCreate) и получи сcылку на SafeArray (см. VarArrayAsPSafeArray) на управляемые им данные.

---

← →
DiamondShark ©   (2008-02-13 15:20) [4]

> 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;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c