Работа с датой-временем

[SwiP]

Есть компонент StringGrid, в нём есть 2 столбика, в котором есть 2 даты.
Разница между этими датами 3 месяца. Например в первом столбике 11/02/2011, во втором - 11/05/2011.
Нужно сделать следующее: если дата на компе уже больше 11/05/2011, то необходимо закрасить "просроченную" ячейку красным цветом. По идее это не сложно реализовать, только я с датами раньше никогда не работал В нете поискал, там только общие сведения, а как сравнивать дату с ячейки и с компа - так и не понял. Помогите, если можете

[phomm]

получить текущую дату - функция Date, преобразовать строку из грида в дату - StrTtoDate , сравнивать даты - CompareDate.
Если возникнут вопросы - в справке вся инормация по этим функциям есть.
Красить примерно так :

procedure TForm1.StringGridDrawCell(Sender: TObject; ACol, ARow: Integer;  Rect: TRect; State: TGridDrawState);
begin
if условие для даты
  then (Sender as TstringGrid).canvas.Brush.Color := clRed;
  else exit;
FillRect(rect);
TextOut(rect.Left, Rect.Top, (Sender as TstringGrid).Cells[acol, arow]);
end;

учтите, что режим клетки тут не учитывается, добавляйте самостоятельно, прочитав справку по TGridDrawState

[SwiP]

C датой - разобрался, а вот с закраской не получается. Он просто тупо закрашивает всю таблицу

procedure TForm1.SG2DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  SG2.Canvas.Brush.Color:=clYellow;
  SG2.Canvas.FillRect(Rect);
  SG2.Canvas.TextOut(Rect.Left, Rect.Top, SG2.Cells[2,2]);

[SwiP]

Ой, забыл условие написать, теперь понятно

[SwiP]

Новая проблема, из-за того, что DrawCell постоянно обновляется, я не могу добавить новую строку в StringGrid (у меня кнопочка добавляет пустую строку), т.к там вместо даты будет пустота, и это вызывает ошибку EConvertError. Можно ли отключить автообновление DrawCell?

[Аватар]

А что проанализировать в DrawCell нельзя пустая ячейка или нет?

[SwiP]

А как запретить ввод в эту ячейку всякой ерунды? Если ввести не дату, то ошибки сыплются, желательно это под контроль взять

[Аватар]

Ну и контролируй по выходу из ячейки, очищай, например, если введенная дата дохлая

[phomm]

выход из режима редактирования ячейки можно отследить событием Onsetedittext

[SERG1980]

Чтобы пользователь мог ввести только дату можно сделать следующее:

procedure TForm1.StringGrid1GetEditMask(Sender: TObject; ACol, ARow: Integer;
  var Value: string);
begin
 Value:='!99/99/0000;1;'
end;