Сравнить время с текущим

[Aleksandr]

есть таблица с колонками Время_нач и Время_кон. Если текущее время меньше начального и больше конечного то закрасить строку.

 if ((TimeToStr(now)<TDBGrideh(Sender).DataSource.DataSet.FieldByName('Время_нач').AsString) and
     (TimeToStr(now)>'23:59:59' )or (TimeToStr(now)>TDBGrideh(Sender).DataSource.DataSet.FieldByName('Время_кон').AsString) and
     (TimeToStr(now)<'00:00:00' ) )
      then
         begin
        TDBGrideh(Sender).Canvas.Font.Color:=clBlue;
        TDBGrideh(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
        TDBGrideh(Sender).Canvas.Font.Style:=[fsBold];
        TDBGrideh(Sender).Canvas.Brush.Color:=OptionForm.sColorSelect3.ColorValue;
        TDBGrideh(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
         end;

[Aleksandr]

Вот исходник. Как сравнить время?

[Serge_Bliznykov]

работать с датой и временем нужно в рамках выделенных под это структур данных

var dTimeCurrent : TDateTime;
...
begin
   dTimeCurrent := Time();
...

 if (dTimeCurrent<
    TDBGrideh(Sender).DataSource.DataSet.FieldByName('Время_нач').AsDateTime) 
or
 (dTimeCurrent>
    TDBGrideh(Sender).DataSource.DataSet.FieldByName('Время_кон').AsDateTime) 
then ....

p.s. дата при этом в поле время_нач и время_кон не должна присутствовать!
для надёжности можно принудительно отбросить дату:

 if (dTimeCurrent<
      frac(TDBGrideh(Sender).DataSource.DataSet.FieldByName('Время_нач').AsDateTime))
or
 (dTimeCurrent>
    frac(TDBGrideh(Sender).DataSource.DataSet.FieldByName('Время_кон').AsDateTime)) 
then ....

p.p.s.
поставьте у ADOConnection1 свойства LoginPrompt в False

[Aleksandr]

Спасибо. Получилось.