Программа работает в локальной сети (Firebird).

← →
Drowsy © (2014-05-23 01:03) [0]

Все 5 компьютеров приблизительно одной конфигурации, на всех Win xp 32
На одной машине, при выполнении запроса (или выводе датасета на грид) стала появляться ошибка "invalid variant operation".

← →
brother © (2014-05-23 03:46) [1]

клева

← →
turbouser © (2014-05-23 09:28) [2]

Захватывающий сюжет!

← →
oldman © (2014-05-23 09:37) [3]

Надо поставить Win7 64, причем 5 компьютеров должны быть разной конфигурации

← →
Drowsy © (2014-05-23 10:14) [4]

> oldman © (23.05.14 09:37) [3]

Попробовал, сюжет тот же.

← →
Dimka Maslov © (2014-05-23 10:32) [5]

Всякое бывает. Расскажу случай из реальной жизни. Куча компов, все практически одинаковые. На нескольких программа не запускается с ошибкой List index of out range. Что за фигня? Программа при запуске строила список моноширинных шрифтов, причём по тупому - проверяла ширину всех символов от 33 до 255. При этом оказалось, что на некоторых компах (даже после перезаливки файла со шрифтом) один символ в районе 160 показывал ширину не как у всех и шрифт Courier New не попадал в список моноширинных. Но прога по-умолчанию считала, что такой шрифт завсегда имеется и делала Font.Name := FontList[FontList.IndexOf("Courier New")]. Как и почему так получалось на некоторых компьютерах - мне не до сих пор не ясно.

← →
turbouser © (2014-05-23 10:32) [6]

> Drowsy © (23.05.14 10:14) [4]

> Попробовал, сюжет тот же.

Т.е. проще переставить винду, чем попытаться воспроизвести ситуацию, при которой возникает исключение и исправить?

← →
Dennis I. Komarov © (2014-05-23 11:02) [7]

А как же 17-я строка?

← →
Антоха (2014-05-23 13:02) [8]

Текст запроса в студию ..

ставлю на события типа AfterOpen или отрисовку данных.
Хотя, с вариантами и датасетом скорее всего перевод строки в число с другим десятичным разделителем.

> Cobalt © (28.05.14 10:46) [9]

Там странная вещь была.
Без необходимой, конечно, проверки VarIsNull фильтрация всё-таки происходила.
Но только один комп из 5 возмущался.

procedure TdmHoles.ibHolesFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept := false;
if not VarIsNull (DataSet.FieldByName("HOLE").Value) then
Accept := (DataSet.FieldByName("HOLE").Value <= 30);
end;

Программа работает в локальной сети (Firebird). Найти похожие ветки