Текущий архив: 2003.12.19;
Скачать: CL | DM;

Вниз

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

← →
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]

Спасибо

---

Страницы: 1 вся ветка

Текущий архив: 2003.12.19;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.014 c