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;

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

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