[Shrews]

Помогите пожалуйста мне нужно, чтобы в одну із ячейок Stringgrid можно было вводить только положительные числа, как ето зделать ?

[Alexo]

Быстренько набросал

Код:

procedure TForm1.strngrd1KeyPress(Sender: TObject; var Key: Char);
begin
  try
    if (Key = #8) or (StrToInt(Key) >= 0) then
      strngrd1.Cells[strngrd1.Col, strngrd1.Row] := strngrd1.Cells[strngrd1.Col, strngrd1.Row] + Key
    else
      Key := #0;
  except
    on EConvertError do ShowMessage(Key + ' Не являеться чилом');
  end;
end;

Только тут проблема с #8 (удаление).

[Shrews]

оо благодарю, только скажи еще как сделать, чтобы в ячейку можно было вводить трех цифровое число, а то в настоящий момент только одноцифорови можно

[Alexo]

хм не должно быть там одноцифровки по крайней мере у меня работает на мнногоцифровку)

Для ограничения проверяй длинну strngrd1.Cells[strngrd1.Col, strngrd1.Row]
если она больше двух то key := #0;