Текущий архив: 2008.03.09;
Скачать: 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 вся ветка
Текущий архив: 2008.03.09;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.034 c
