Экспорт XLS в Delphi + Массив Variant

Question

[Alex May]

Уважаемые Delphi специалисты (Использую Delphi 7)

Вот такая вот задача, при экспорте XLS файла в stringgrid средствами COM.

Начало и заголовки стандартные, интереса не представляют.

Но, есть тип RangeMatrix: Variant, в который помещаются данные при вызове
RangeMatrix := XLApp.Range['A1', XLApp.Cells.Item[X, Y]].Value;

Затем данные из RangeMatrix по циклу помещаются в StringGrid.Cell[ROW,COL]

Вот так:
StringGrid.Cells[ROW, COL] := RangeMatrix [ROW,COL];
Этот код работает.

Все данные помещаются нормально, за исключением DateTime, которое помещается в виде Double, т.е. время в ячейке вместо 16:30 выглядит как 0.ХХХХХХХХ, т.е. 0.324234234

Вопрос: Как сделать распознать тип текущих данных в RangeMatrix [ROW,COL]; дабы совершить над ними какие либо действия в процессе обработки?

В отличие от кода выше, код ниже, когда значение RangeMatrix [ROW,COL] присвавается переменной, не работает
MyTest := RangeMatrix[ROW,COL];

Этот код выдает ошибку: Variant or safe array index out of bounds

Голова сломалась совсем. Прошу совета, почему переменной MyTest нельзя присвоить RangeMatrix[ROW,COL]?

Answer 1

[Александр]

StringGrid.Cells[ROW, COL] := RangeMatrix [ROW,COL];
Этот код работает.

Покажите, как вы индексы массива перебираете. Как границы определяете.

Comments

[Alex May]

Все — вопрос закрыт.
Сорри за грубейшую мою ошибку, а именно
забыл включить связку begin — end в цикл for ROW:=1 to Y do

Приношу всем огромные извинения за потраченное время.

Answer 2

[drVano]

MyTest := RangeMatrix[K, R];
Этот код выдает ошибку: Variant or safe array index out of bounds

Comments

[drVano]

Тут скорее всего перепутаны местами индексы K и R или они выходят за границы массива.

Вопрос: Как сделать распознать тип текущих данных в RangeMatrix [ROW,COL]; дабы совершить над ними какие либо действия в процессе обработки?

Попробуй использовать VarType(Variant) и в зависимости от типа делать нужные действия.

[Alex May]

Индексы не перепутаны, тк. код
StringGrid.Cells[ROW, COL] := RangeMatrix [ROW,COL];
Работает

[drVano]

Еще раз повторю — у вас в одном месте используется ROW и COL, а в другом K и R. Никто кроме вас не знает что это за переменные — вот и посмотрите что они у вас не перепутаны местами и не выходят за границы массива RangeMatrix.

[Alex May]

Исправил текст вопроса, дабы не смущать читателей. :) Конечно, везде используется ROW, COL

[drVano]

Текст вопроса не нужно исправлять — нужно исправлять свои исходники :)) Давайте их уже сюда — будем разбираться вместе.

Answer 3

[pokryshkin]

чтобы не было Variant or safe array index out of bounds используейте .value как в первом случае, т.е.

MyTest := RangeMatrix[ROW,COL].value;

с временем тоже все правильно — время это дробная часть числа. А вот как определить формат числа уже не вспомню, но установить его можно было через NumberFormat, может и определится через него.

Comments

[Alex May]

Не работает. Написал вот так

var
myTest: Variant;

потом код:

myTest:=RangeMatrix[ROW,COL].Value; // Не работает. Ошибка: Invalid Variant operation
// А ЭТОТ РАБОТАЕТ AGrid.Cells[ROW, COL] := RangeMatrix[K, R];

Со временем вопросов нет — решил.

[pokryshkin]

Вернемся к названиям переменных:
K — это должна быть строка, потому как первый параметр, смущает название
R — это должен быть столбец, но R это наверное от row. Опять смущает название. Исправьте у себя переменные на человеческие названия.
с Value — это я ошибся. value нужно указывать когда с самим листом работаете, для уже прочитанного массива — не нужно.

[Александр]

>> Со временем вопросов нет — решил

Вопрос закрыт?

Answer 4

[xdenser]

так в случае
AGrid.Cells[ROW, COL] := RangeMatrix[K, R];
идет приведение типа к String;

попробуйте объявить
var
myTest: OleVariant;

или вот так написать

var
myTest: Variant;

myTest:=String(RangeMatrix[ROW,COL].Value);

но проблему определения типа данных в ячейке это не решит