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) на управляемые им данные.

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

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