Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.08.04;
Скачать: CL | DM;

Вниз

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

 
defenseur   (2003-07-23 11:14) [0]

Всем привет,

Не подскажите, как объявить в delphi что-то типа safearray, а то на код
var
sa: safearray of integer;

компилятор ругается, говорит что неизвестный идентификатор


 
Плохиш   (2003-07-23 11:16) [1]

Что такое safearray?


 
clickmaker ©   (2003-07-23 12:08) [2]

A: Variant;

A := VarArrayCreate([0, 5], varInteger);
A[0] := 1;
...
A[5] := 777;


 
ggsoft ©   (2003-07-23 12:17) [3]

в Delphi 6, (нет 5-го под руками):

1. uses ActiveX
2. SafeArray он и есть SafeArray... see declaration
---------
PSafeArrayBound = ^TSafeArrayBound;
{$EXTERNALSYM tagSAFEARRAYBOUND}
tagSAFEARRAYBOUND = record
cElements: Longint;
lLbound: Longint;
end;
TSafeArrayBound = tagSAFEARRAYBOUND;
{$EXTERNALSYM SAFEARRAYBOUND}
SAFEARRAYBOUND = TSafeArrayBound;

PSafeArray = ^TSafeArray;
{$EXTERNALSYM tagSAFEARRAY}
tagSAFEARRAY = record
cDims: Word;
fFeatures: Word;
cbElements: Longint;
cLocks: Longint;
pvData: Pointer;
rgsabound: array[0..0] of TSafeArrayBound;
end;
TSafeArray = tagSAFEARRAY;
{$EXTERNALSYM SAFEARRAY}
SAFEARRAY = TSafeArray;
----------



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

Текущий архив: 2003.08.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
1-10235
Nucl
2003-07-21 11:07
2003.08.04
Смена картинки на кнопке


14-10354
Andryk
2003-07-18 17:51
2003.08.04
Ура наконец-то нашли способ боротся со спамом :о))


14-10359
DenKop
2003-07-17 14:18
2003.08.04
Где взять простой ftp сервер для win.


3-10099
N&N
2003-07-14 11:09
2003.08.04
Как присвоить полю Integer значение


14-10460
Knight
2003-07-17 21:16
2003.08.04
Телефонный справочник - законно ли это?