Как можно запретить повторный ввод нуля в ячейку StringGrid

[Ветас]

Здравствуйте, Уважаемые форумчане.

Подскажите, пожалуйста, как можно запретить повторный ввод нуля в ячейку StringGrid если он уже был в нее введен, но чтобы можно было ввести значения такие как, например: 10 20 и т.д.

т.е. введен нуль и мы хотим ввести еще один нуль

[k1r1ch]

Сейчас Delphi под рукой нету, но у стринг грида должен быть обработчик что-то типо onKeyDown, который передает нажатый символ и координаты ячейки, в нем надо сделать проверку:

if (Key {передаваемый символ} = '0') and (StringGrid1.Cells[X, Y] = '0') then Key := #0;

[mihali4]

Вот вам развернутый ответ:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if key<>'0' then
exit;
if Pos('0',StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row])>0 then
key:=Chr(0);
end;

[Ветас]

Большое спасибо за ответы! Все получилось!

[k1r1ch]

2mihali4: Так автору то надо, чтобы число 10, 20 и т.д. можно было ввести, поэтому Pos не подходит. Я считаю надо так:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = '0') and (StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row] = '0') then Key := #0;
end;

[mihali4]

Сообщение от k1r1ch

2mihali4: Так автору то надо, чтобы число 10, 20 и т.д. можно было ввести, поэтому Pos не подходит. Я считаю надо так:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = '0') and (StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row] = '0') then Key := #0;
end;

Счетовод вы наш
Это ваш вариант не подходит, ибо он вообще ничего не делает.
Разве только запрещает ввести значок гальюна - "00"...