怎样控制StringGrid的字段的长度？

Question

比如：我需要一个字段的长度不超过9个数字，怎么办?

Answer 1

在StringGrid的OnSetEditText事件中：
  if length(value) > 9 then
    abort;

Answer 2

OnKeyPress事件中：
  if Length(stringgrid1.cells[stringgrid1.row,2])>=9 then
        Key:=#0;

Answer 3

OnGetEditMask, 例：
const
  MaxLength = 9;procedure TfmAutoPicker.sgQuestionTypeGetEditMask(Sender: TObject; ACol,
  ARow: Integer; var Value: String);
begin
  Value := '!' + StringOfChar('9', MaxLength) + ';0;_'
end;