Найдено результатов: 4

Розетки в Pascal

Как вы используете сетевые сокеты в Pascal?

sockets   pascal    

422   4   13:40, 20th August, 2020


WordPress 3.0, ID текущей категории

Борюсь с меню и подменю. Дошел до момента child_of=6, тогда показываться будет подменю с самым верхним родителем у которого id=6
Понятно что с цифрами все плохо, нужна переменная.
До версии 3.0 прокатывала $cat, судя по форумам. тут она не срабатывает напрочь.
Оно щас как то по-другому называется? )

Pascal    

310   2   05:10, 9th August, 2020


Динамические массивы внутри классов в Object Pascal

Как описать внутри класса динамический массив?

Нужно что то типа такого:
type
myclass = class
private
n: integer;
a: array[0..n] of integer;
public
constructor create(n_ : integer);
end;


На этот код ругается, что не n — не описан.

ООП   Pascal    

411   3   12:13, 6th August, 2020


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

Уважаемые 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]?

Delphi   Pascal    

336   4   05:41, 2nd October, 2020