Error creating variant or safe array. Из-за чего?

← →
12 © (2011-01-14 12:22) [0]

Забираю из excel в stringgrid
На одном файле - все нормально, пробую другой - ошибка.

Именно, если я специально набил данные - берет нормально
Стоит открыть "левый файл", а по-идее, какая ему разница?, так ошибка.

ArrayData: Variant; BeginRow :=1; BeginCol := 1; RowCount := ExcelApp.Cells.SpecialCells(11).Row; ColCount := ExcelApp.Cells.SpecialCells(11).Column; sgView.RowCount := RowCount ; sgView.ColCount := ColCount ; if (RowCount <> 100) and (ColCount <> 9) then Exit; -- именно такие размеры получаются ArrayData := VarArrayCreate([BeginRow, BeginCol, RowCount + 1, ColCount + 1], varOleStr); // тут - Error creating variant or safe array // varVariant); // так раньше пробовал // ибо тут http://forum.vingrad.ru/forum/topic-141245/0.html сказали про varOleStr

← →
12 © (2011-01-14 12:52) [1]

а так работает
чудеса..

//ArrayData := VarArrayCreate([BeginRow, BeginCol, RowCount + 1, ColCount + 1], varOleStr);// varVariant);
ArrayData := VarArrayCreate([1, 1, 150, 150], varOleStr);

← →
KilkennyCat © (2011-01-14 13:06) [2]

> if (RowCount <> 100) and (ColCount <> 9) then
> Exit;

не вяжется с
> RowCount := ExcelApp.Cells.SpecialCells(11).Row;
> ColCount := ExcelApp.Cells.SpecialCells(11).Column;
> sgView.RowCount := RowCount ;
> sgView.ColCount := ColCount
> VarArrayCreate([BeginRow, BeginCol, RowCount + 1, ColCount
> + 1], varOleStr); // тут - Error creating variant or safe
> array
я бы так сделал

if (ExcelApp.Cells.SpecialCells(11).Row<> 100) and (ExcelApp.Cells.SpecialCells(11).Column <> 9) then Exit;
sgView.RowCount := 100;
sgView.ColCount := 9;
ArrayData := VarArrayCreate([1, 1, 101, 10], varOleStr);

если нет никаких планов на RowCount и пр. в дальнейшем.

← →
12 © (2011-01-14 13:09) [3]

не работает
if (RowCount <> 100) and (ColCount <> 9) and (BeginRow <> 1) and (BeginCol <> 1) then
Exit;
//ArrayData := VarArrayCreate([BeginRow, BeginCol, RowCount + 1, ColCount + 1], varOleStr);// varVariant);
ArrayData := VarArrayCreate([1, 1, 101, 10], varOleStr);
exit;

работает
if (RowCount <> 100) and (ColCount <> 9) and (BeginRow <> 1) and (BeginCol <> 1) then
Exit;
//ArrayData := VarArrayCreate([BeginRow, BeginCol, RowCount + 1, ColCount + 1], varOleStr);// varVariant);
ArrayData := VarArrayCreate([1, 1, 10, 101], varOleStr);
exit;

что за глупость?
ну, ладно, пусть я ошибся (и то, возможно, ошибся с порядком аргументов), но какая ему разница, какие там числа стоят?!!

← →
12 © (2011-01-14 13:10) [4]

> KilkennyCat © (14.01.11 13:06) [2]

100 и 9 - это я для вас написал, чтоб было понятно, что выхода не было, и чему они равны, следовательно.

← →
RWolf © (2011-01-14 13:13) [5]

> 12 © (14.01.11 13:09) [3]

> но какая ему разница, какие там числа стоят?!!

в 1-м случае некорректные границы массива получаются.

← →
Сергей М. © (2011-01-14 13:16) [6]

> какая ему разница, какие там числа стоят?

Как это "какая" ?)
Каждая пара значений описывает нижнюю и верхнюю границу индексов описываемой размерности)
С какой радости нижняя граница равна 101, а верхняя при этом у тебя меньше нижней ?)

← →
Сергей М. © (2011-01-14 13:18) [7]

Если уж не хочется заморачиваться что там больше или меньше, поступи тупо но надежно: [Min(BoundIndex1, BoundIndex2), Max(BoundIndex1, BoundIndex2)]

еще нашел, что:
Функция VarArrayCreate создает массив variant с пределами, заданными параметром Bounds и типом элементов, заданным параметром VarType. Параметр Bounds должен содержать четное число значений, каждая пара которых задает пределы изменения индексов соответствующего измерения.

аа..
а я всегда думал, что просто матрица создается, по размерам..
а уж как ее интерпретировать - дело второе

Спасибо

> а я всегда думал

А не надо думать - надо справку читать)
Хотя и там лажа:

each pair of values specifies the upper and lower bounds of one dimension of the array.

Т.е. действуя по справке ты как раз получаешь теми самыми граблями, но оно хотя бы на мысль наведет)

Error creating variant or safe array. Из-за чего? Найти похожие ветки