Проверка переменной на null

[CraZZZy-GameRRR]

На форме есть поле для ввода времени (DateTimePicker). Это значение нужно присвоить переменной типа TTime (а точнее свойству класса в реальном проекте, но пока упростим). Суть в том, что поле не обязательно и можно его не заполнять. Для этого у компонента отображается галочка (ShowCheckbox = True). Чтобы определить задано время или нет, добавлять отдельную переменную а-ля IsTimeSet не очень удобно, поэтому делаю так: если галка не стоит - пишу в переменную null. Потом дальше, где я орабатываю значение этой переменной мне нужно проверить null она или нет. Я делаю это либо так:

if VarIsNull(t) then

либо так:

if t = null then

и в любом случае, если переменная равна null, происходит исключение:
snap01001.png

Вот код:

procedure TForm1.DateTimePicker1Change(Sender: TObject);
var
  t: TTIme;
begin
  // Записываем время в переменную
  if DateTimePicker1.Checked = False then
    t := null
  else
    t := DateTimePicker1.Time;

  // Тут что-нибудь делаем ещё ...
  // ....

  //
  if {VarIsNull(t)} t = null then
    Memo1.Text := 'Время не задано!'
  else
    Memo1.Text := 'Задано время: ' + TimeToStr(DateTimePicker1.Time);
end;

Архив с проектом прилагаю:
timetest.zip

[Arigato]

TTime это тип Double, а null - Variant. Используйте вместо null, например, 0.

[CraZZZy-GameRRR]

Тогда как отличить '00:00:00' от 0?

[Serge_Bliznykov]

Сообщение от CraZZZy-GameRRR

Тогда как отличить '00:00:00' от 0?

никак.
попробуйте отрицательные значения (-1, например)
если не получится - тогда используйте дополнительную переменную isTimeSet
или вообще обращайтесь к значению чекбокса, который за это отвечает.

[evg_m]

Tdatetimepicker это в том числе и поле для ВВОДа и стало быть есть его строковое представление.

if datetimepicker1.text='' then showmessage('время не задано')
else t:=datetimepicker1.time;

[kropotkina-alice]

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

Tdatetimepicker это в том числе и поле для ВВОДа и стало быть есть его строковое представление

У DateTimePicker есть свойство .Text???
О-о-о...

[DIONISKA]

TTime это тот-же TDatetime, который double, причем DateTimePicker возвращает одно и то-же значение для Time, Date, Datetime(можете заглянуть в ComCtrls). На всякий напомню: дробная часть это время, а целая - дата. Если нужно только время, то можно поступить так:

var
  t: TTIme;
  //...
begin
 if DateTimePicker1.Checked = False then
    t := 1
  else
    t := frac(DateTimePicker1.Time); 
  // ....
 if  t = 1 then //<-- значение времени принимает вид -1<Time< 1
    Memo1.Text := 'Время не задано!'
  else
    Memo1.Text := 'Задано время: ' + TimeToStr(t);

[kropotkina-alice]

Мудрено как-то...
А если:

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
  if DateTimePicker1.Checked = False then
    Memo1.Text := 'Время не задано!'
  else
    Memo1.Text := 'Задано время: ' + TimeToStr(DateTimePicker1.Time);
  // Тут что-нибудь делаем ещё ...
end;

Зачем вводить какую-то переменную t?

[DIONISKA]

Сообщение от kropotkina-alice

...
Зачем вводить какую-то переменную t?

У ТС в рабочем проекте значение t - некое свойство класса(если я правильно понял), его методы могут к примеру выполнятся вне главного потока, а обращение к vcl из другого потока это уже потенциальные проблемы с синхронизацией Например может быть что-то такое:

 TWorkthread=class(TThread)
   ftime:TTime;
   constructor Create(createsuspended:Boolean; begintime:TTime=1); override;
      protected
   procedure Execute; override;
      public
   procedure SetTime(value:TTime);
    property Time:TTime read ftime write SetTime;
  end;

Впрочем не пойму почему ТС отказывается завести ещё одно свойство у своего класса, которое будет учитывать необходимость указания времени.

[Arigato]

t := Infinity; // дата не установлена
...
if IsInfinite(t) then // не установлена
else // установлена