Форум: "Основная";
Текущий архив: 2003.12.19;
Скачать: [xml.tar.bz2];
Вниз
Проблема с датой Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c