Главная страница
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.015 c
14-62285
undert
2003-11-23 17:35
2003.12.19
Если Мастера Delphi не могут дать ответа по Delphi,будут про PHP


7-62301
Monak
2003-09-29 19:59
2003.12.19
Прошивка процесса


14-62266
VID
2003-11-23 18:37
2003.12.19
Сбор 100 голосов за закрытие ветки


3-61920
Новичек
2003-11-25 14:08
2003.12.19
Как определить почему возникает access violation? :(


3-61959
Genri
2003-11-26 11:51
2003.12.19
Обработка exception