Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.024 c
3-61930
mari
2003-11-27 10:01
2003.12.19
добавление записей в таблицу


14-62243
BOA_KAA
2003-11-25 13:25
2003.12.19
Как вам это нравится?


3-61922
DBDev
2003-11-24 13:10
2003.12.19
как получить будущее значение ID после опреации Insert?


4-62321
Turonix
2003-10-24 15:58
2003.12.19
Установка соединения Dial-up с Интернетом


1-62113
Krys
2003-12-08 14:11
2003.12.19
Обработка нажатий клавиш мыши