Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Error creating variant or safe array. Из-за чего? [D7, XP]

12 © (2011-01-14 12:22:00)
Забираю из 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

Сергей М. (2011-01-14 13:39:00) [1]
> а я всегда думал

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

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

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

12 (2011-01-14 13:25:00) [2]
аа..
а я всегда думал, что просто матрица создается, по размерам..
а уж как ее интерпретировать - дело второе

Спасибо

KilkennyCat (2011-01-14 13:20:00) [3]
еще нашел, что:
Функция VarArrayCreate создает массив variant с пределами, заданными параметром Bounds и типом элементов, заданным параметром VarType. Параметр Bounds должен содержать четное число значений, каждая пара которых задает пределы изменения индексов соответствующего измерения.

Сергей М. (2011-01-14 13:18:00) [4]
Если уж не хочется заморачиваться что там больше или меньше, поступи тупо но надежно: [Min(BoundIndex1, BoundIndex2), Max(BoundIndex1, BoundIndex2)]

Сергей М. (2011-01-14 13:16:00) [5]
> какая ему разница, какие там числа стоят?

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

RWolf (2011-01-14 13:13:00) [6]

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

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

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

12 (2011-01-14 13:10:00) [7]

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

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

12 (2011-01-14 13:09:00) [8]
не работает
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;

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

KilkennyCat (2011-01-14 13:06:00) [9]

> 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 12:52:00) [10]
а так работает
чудеса..

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »