dbgrideh在键入一个字符后，如何使之变为定义的数据？？

Question

dbgrideh中，我想快速输入数据，比如在当前单元格中输入5按回车，则当前单元格的值变为“优”，输入4则变为“良”，请问高手，应如何实现？？多谢！！！

Answer 1

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
   begin
     if Key = '5' then
     begin
        TDBGrid(ActiveControl).Fields(Col).Asstirng := '优';
        Key := #0;
     end;
   end;