Проблема с датой

← →
dDan (2003-12-06 11:21) [0]

procedure Tmainf.listAdvancedCustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage; var DefaultDraw: Boolean); begin if (item.SubItems[2]<=DateToStr(Date)) then begin Sender.Canvas.Brush.Color := clMaroon; Sender.Canvas.Font.Style:=[fsBold]; Sender.Canvas.Font.Color := clSilver; end; end;
Вроде все нормально но только работает с числом а с месяцами и годами нет вот пример
12.03.2003->10.03.2004
скажет что уже просрочено тоесть выделит красным ну это так уменя В чем проблема =) Заранее спасибо

← →
Мыш © (2003-12-06 12:16) [1]

у тебя в строке (item.SubItems[2]<=DateToStr(Date)) идет не сравнение дат, а сравнение строк, сделай так:
strtodate(item.SubItems[2])<=(Date)

← →
dDan (2003-12-06 13:06) [2]

Спасибо

Проблема с датой Найти похожие ветки