DBGrid的列值转换问题，求救！

Question

我想在DBGrid中对某一列值转换为另外一种类型。如：DBGrid中有rq（日期：类型:DateTime）字段，我想在该列输入061021，当我跳到下一列，系统将其转换为2006-10-21或061-10-21

Answer 1

procedure TForm1.Table1DateSetText(Sender: TField;
  const Text: String);
begin
  if Length(Text) = 6 then
    Sender.AsDateTime := StrToDateDef(Format('20%s-%s-%s', [
      Copy(Text, 1, 2), Copy(Text, 3, 2), Copy(Text, 5, 2)]), Date)
  else Sender.AsDateTime := StrToDateDef(Text, Date);
end;procedure TForm1.Table1AfterOpen(DataSet: TDataSet);
begin
  DataSet.FieldByName('rq').OnSetText := Table1DateSetText;
end;