[delphicoding]

Здравствуйте!
В замороченном проекте с кучей кода и окон в одном месте постоянно выскакивает "Could not convert variant of type (Null) into type (Double)". (Небольшая ремарка - конечно это само по себе бред полный, тк Null это "пусто" и при переделке "пусто" в любой формат хоть строки, хоть числа, чего угодно всё равно должно получиться "пусто", ну да ладно, оставим это на совести разработчиков Delphi.) Проблема том, что в месте где возникает ошибка происходит подряд целая цепь событий: создание окна, загрузка данных, выбор данных, создание другого окна, передача параметров, обновление данных БД, формирование отчёты FastReport. Много всего и куча данных - понять что где глючит не зная места и данных невозможно.

Пробовал ставить BreakPoints, запускать в режиме Trace To Next Source Lines, жать break когда выскакивает ошибка, итд - без толку, ошибка просто появляется и откуда берётся непонятно! (Понятно лишь, что при нажатии на кнопку, но там такое кол-во сразу выполняется процедур и данных, что ого-го.)

Если ли какой-то способ заставить Delphi чётко указать на строку кода, в которой возникает ошибка и желательно отобразить переменную и данные в удобоваримом виде которые вызывают ошибку?

PS Попутно вопрос по датам - если при вводе Дата не указана, то может ли она везде (Delphi,Firebird,FastReport) быть null? или null в контексте Даты вызывает ошибку? Как тогда передавать "дата не указана", чтобы в БД сохранилось как null?

[VANNIK002]

Может быть как - нибудь и можно, но я в подобных случаях пользуюсь дедовским методом.
Подозрительный код методически "окружаю" вот такими сообщениями

Код:

ShowMessage('Точка 1 Входим');
.......
.......
.......
ShowMessage('Удачно вышли');

Нудно, но очень эффективно. Я этим всегда пользуюсь.
По поводу 2 вопроса.
Не уверен, но попробуй проверить, допускает ли поле базы данных сохранение значения Null.

[delphicoding]

БД допускает. Но Delphi вот Дату как null что-то не очень воспринимает... или может FastReport ? Но кто-то из них явно не понимает var D:Tdate; D:=null;..

Как таки передавать Date пустую ???

[Rat]

А null точно можно использовать? Помоему всю жизнь nil использовали в борланде.

[delphicoding]

Да в этом долбанном борланде чё тольк оне используют и nil и null и if =null и IsNull итд итп... бардак полнейший!

[VANNIK002]

На этот вопрос к сожалению ответа не знаю.
Найди строку, в которой возникает ошибка. Возможно тогда всё и разрешится. У меня так было. Удачи.

[NumLock]

Сообщение от delphicoding

Да в этом долбанном борланде чё тольк оне используют и nil и null и if =null и IsNull итд итп... бардак полнейший!

да нет, бардак как раз в голове у ТС в непонимании типов.
TDateTime = type Double;
естественно вещественый тип не может иметь пустое значение, в отличии от типа Variant.
Null это функция, которая возвращает пустое значение типа Variant:

Код:

unit Variants;

function Null: Variant;
begin
  _VarNull(TVarData(Result));
end;

при работе с датой в БД рекомендую такой подход:

Код:

var
  d: TDateTime;
begin
  if not Table1.FieldByName('date1').IsNull then
  begin
    d:=Table1.FieldByName('date1').AsDateTime; // получение значения даты, если поле заполнено
    Table1.FieldByName('date1').Clear; // очищаем значение поля
  end;
end;

nil используется с указателями.

[delphicoding]

естественно вещественый тип не может иметь пустое значение,

Очевидно ничего естественного в этом нет. Любой тип может и обязан быть пустым если ещё не задан или в данном случае необходимо чтобы был не задан...
То есть в Delphi не предусмотрено вообще пустая дата?! То есть нельзя оставить поле для ввода даты пустым и присвоить это некой переменной ?!

[NumLock]

Сообщение от delphicoding

Любой тип может и обязан быть пустым если ещё не задан

абсолютно не верно. "простые" типы (Integer, Real) не могут быть "пустыми" в принципе - например Integer это 4 байта и хранить признак пустого значения им просто негде. в отличии от "сложных" типов Variant, где VType := varNull.

Сообщение от delphicoding

То есть в Delphi не предусмотрено вообще пустая дата?! То есть нельзя оставить поле для ввода даты пустым и присвоить это некой переменной ?!

тип TDate тоже не может иметь "пустое" значение, т.к. это:

A TDate value represents the number of days that have elapsed since 12/30/1899.

поле "дата" БД естественно может буть пустым. но присвоение его к переменной TDate[Time] вызовет ошибку, когда оно пустое. естествено можно Variant использовать.

[delphicoding]

например Integer это 4 байта и хранить признак пустого значения им просто негде.

Потрясающе. А просто ничего не хранить они никак не могут?

тип TDate тоже не может иметь "пустое" значение, т.к. это:

Господи, какие дебилы это делали. К тому же ещё и в днях! Значит при каждом считывании/записи из полей/ресурсов отображающих нормальную дату - происходит конвертация и расчёт по годам и месяцам... ну что тут скажешь - ппц.
============================================

Придумал как можно проверить, тольк оне знаю как это реализовать... вопрос размуеется тупой - есть юнит DataModule, то есть без формы, в нём много чего происходит, а на выходе должен быть заполнен Datasource данными. Как можно из этого DataModule при помощи чистого кода создать нечто вроде текстового окна с кнопкой ОК/Закрыть и залить в это окно или некий графический объект все данные из Datasource (или Dataset) - чтобы наконец таки проверить все значения...

[delphicoding]

После долгих ковыряний выяснилось, что в программе всё нормально. Баг либо в процедуре БД, либо при передаче параметров из программы в процедуру БД. Процедура явно работает, тк возвращает названия полей таблицы, но результат работы - пуст.
Пользуюсь IBExpert, можно в нём как-то посмотреть запросы/ответы к/из процедурам БД из рабочей программы? Как вообще можно узнать какие точно данные получила БД?

[PhoeniX]

Сообщение от delphicoding

А просто ничего не хранить они никак не могут?

Давай подумаем вместе. У нас есть оперативная память - непрерывный блок байт. Система выделила нам под переменную типа Integer 4 байта из этого блока. Как ты предлагаешь "ничего не хранить" в них?

[M.A.D.M.A.N.]

Сообщение от DJ PhoeniX

Давай подумаем вместе. У нас есть оперативная память - непрерывный блок байт. Система выделила нам под переменную типа Integer 4 байта из этого блока. Как ты предлагаешь "ничего не хранить" в них?

Луше начать с двоичной логики.

[PhoeniX]

Ну тогда уж с просто логики...
[/sarcasm]

[delphicoding]

Ну это совсем смешной вопрос для дебилоф.
Вы тут все типа умные программеры же, ага, вот тебе ответ:
[ У нас есть оперативная память - непрерывный блок байт. Система выделила нам под переменную типа Integer 4 байта из этого блока. Как ты предлагаешь "ничего не хранить" в них? ] := [ Это типа вопрос - чем же подтереть жопу, когда начал дристать посреди красной площади? ]

В 17 лет уже иметь восьмилетний стаж программирования, знать 4 языка... Это что-то значит
А у меня лучшая выпускная работа года в городе Москве, написана на QB. Это что-то значит?