Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.03.09;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.04 c
15-1202148496
Petr V. Abramov
2008-02-04 21:08
2008.03.09
Как отлаживать DLL под XP. D 7 и ниже.


15-1201851717
homm
2008-02-01 10:41
2008.03.09
Осторожней, Москвичи!


11-1184499935
Lex1
2007-07-15 15:45
2008.03.09
KOL поддерживает регулярные выражения?


2-1202720850
lead-in
2008-02-11 12:07
2008.03.09
проблема с Socket`ами


9-1167303712
megabyte-ceercop
2006-12-28 14:01
2008.03.09
Установить DelphiX на C++Builder





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский