Проблема с DrawDataCell

[amator_roma]

Вот код:

procedure TForm1.DBGridEh1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
      if adoquery1.fieldbyname('Data').asfloat > 1 then
dbgrideh1.canvas.font.color := clred;
dbgrideh1.defaultdrawdatacell(rect, field, state);
end;

А если поле типа дата ?

[_SERGEYX_]

А какая разница?

var Dt: TDateTime;
begin
  Dt := StrToDate('30.11.2010');
  if adoquery1.fieldbyname('Data').AsDateTime > Dt then
    dbgrideh1.canvas.font.color := clred;
  dbgrideh1.defaultdrawdatacell(rect, field, state);
end;

[amator_roma]

псб. большоэ
а эщо вопросик а как написать чтобы Dt вводилось в Еdit?

[arcan777]

просто делаешь так

edit1.text:=DateToStr(Dt);