Форум: "Начинающим";
Текущий архив: 2015.10.25;
Скачать: [xml.tar.bz2];
ВнизПрограмма работает в локальной сети (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]Текст запроса в студию ..
← →
Cobalt © (2014-05-28 10:46) [9]ставлю на события типа AfterOpen или отрисовку данных.
Хотя, с вариантами и датасетом скорее всего перевод строки в число с другим десятичным разделителем.
← →
Drowsy © (2014-05-28 20:55) [10]
> 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;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2015.10.25;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.001 c