Форум: "Основная";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];

Вниз

Опять про VarArrayCreate.   Найти похожие ветки 

← →
AlexanderSK   (2003-02-26 15:53) [0]

V: Variant;
...
V := VarArrayCreate([0,10], тип_варианта);
TVarData(V).VType = (varArray + тип_варианта)

А как грамотно узнать, что V - это массив, и собственно из чего этот массив состоит?

---

← →
Digitman   (2003-02-26 16:02) [1]

наличие флага varArray в прочитанном идентификаторе типа VType, собссно, и говорит, что вариантная переменная V в дан.момент инициализирована для хранения массива

поле "тип_варианта" указывает на тип элементов этого массива

---

← →
AlexanderSK   (2003-02-26 16:07) [2]

>Digitman ©
Это понятно! А вот как не зная тип_варианта и того что это массив: во-первых понять что это массив, а во-вторых, какого он собственно типа?

---

← →
Roma   (2003-02-26 16:16) [3]

>AlexanderSK © (26.02.03 16:07)

if VarIsArray(V) then
begin
// это массив

if not VarIsEmpty(V) and not VarIsNull(V) then
begin
// этот массив не пустой

DimCount := VarArrayDimCount(V); // это размерность массива
for i := 1 to DimCount do
begin
// определяем типы элементов массива
case VarType(V, VarArrayLowBound(V, i)) of
end;
end;
end;
end;

Код чисто для примера, не проверялся... Чаще F1 нажимай...

---

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

Форум: "Основная";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.008 c