Защита от неправильного ввода

[Obey177]

Ув. юзеры вот смотрите у меня есть массив, вводить в него нужно только числа, как сделать что бы при вводе буквы выдавало ошибку ?

[Delphi_ProGer]

Смотря где ты вводишь, в консоле, в TEdit или где-нибудь иначе...
Вариант 1: проверять ввод, т.е. находиться ли вводимое значение в пределах цыфр.
Вариант 2: запихнуть в Try...Except

[Obey177]

у меня компонент StringGrid1
Свойство Значение
ColCount 10
FixedCols 0
RowCount 1
DefaultRowHeight 24
Height 24
DefaultColWidth 64
Width 656
Options . goEditing True
Options . AlwaysShowEditing True
Options .goTabs True

procedure TForm1.StringGridlKeyPress(Sender: TObject; var Key: Char);

begin


case Key of


#8,'0'..'9' : ; // öèôðû è <Backspace>


#13: // êëàâèøà <Enter>


if StringGridl.Col<StringGridl.ColCount-1


then StringGridl.Col:=StringGridl.Col + 1; '.',',':

// ðàçäåëèòåëü öåëîé è äðîáíîé ÷àñòåé ÷èñëà 

begin


if Key <> DecimalSeparator then


Key := DecimalSeparator; // çàìåíèì ðàçäåëèòåëü 


// íà äîïóñòèìûé


if Pos(StringGridl.Cells[StringGridl.Col,0],


DecimalSeparator) <> 0 

then Key := Chr(O); // çàïðåò ââîäà âòîðîãî 


// ðàçäåëèòåëÿ end;


' -' : // ìèíóñ ìîæíî ââåñòè òîëüêî ïåðâûì ñèìâîëîì,

// ò. å. êîãäà ÿ÷åéêà ïóñòàÿ 


if Length(StringGrid1.Cells[StringGrid1.Col, 0]) <>0 then

Key := Chr(0) ;


else // îñòàëüíûå ñèìâîëû çàïðåùåíû 


key := Chr(0);

end; 

end;

[evg_m]

Ув. юзеры вот смотрите у меня есть массив, вводить в него нужно только числа

В приведенном коде не вижу массива. Есть только визуальный компонент таблица (stringGrid).

else // îñòàëüíûå ñèìâîëû çàïðåùåíû 
  begin
  ShowMessage('Уважаемый пользователь, то что вы сейчас ввели нам не подходит');
  key := Chr(0);
  end;
end;

соччувствую пользователю, которому после каждой ошибки придется отвлекаться от клавиатуры чтобы взять мышку и нажать на ОК. Не эфективное решение.

[Obey177]

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

В приведенном коде не вижу массива. Есть только визуальный компонент таблица (stringGrid).

else // îñòàëüíûå ñèìâîëû çàïðåùåíû 
  begin
  ShowMessage('Уважаемый пользователь, то что вы сейчас ввели нам не подходит');
  key := Chr(0);
  end;
end;

соччувствую пользователю, которому после каждой ошибки придется отвлекаться от клавиатуры чтобы взять мышку и нажать на ОК. Не эфективное решение.

массив там есть который сам вводишь...лаба такая не я придумываю такие задания...

[Stilet]

ShowMessage('Уважаемый пользователь, то что вы сейчас ввели нам не подходит');

Это нужно убрать. Или по другому:

procedure TForm1.StringGridlKeyPress(Sender: TObject; var Key: Char);
var d:double;
begin
 if key=#13 then begin
  if not TryStrToFloat(TEdit(Sender).Text,d) then
   ShowMessage('Уважаемый пользователь, то что вы сейчас ввели нам не подходит');
 end;
end;

Но тогда обязательно требуется нажимать энтер после ввода

[Serge_Bliznykov]

проще не ошибку выдавать, а запретить вводить всё, кроме цифр.
у грида есть событие OnKeyPress
вставьте туда такой код:

procedure TForm2.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9']) then Key:=#0;
end;

и нельзя будет ничего ввести кроме цифр.

if key=#13 then begin...

Stilet, к сожалению существует множество способов выйти из режима редактирования текущей ячейки без нажатия Enter.
(самый простой из них - мышкой ткнуть в другое поле). и всё. код проверки не сработает...

[_SERGEYX_]

проще не ошибку выдавать, а запретить вводить всё, кроме цифр.

Из всех подобных процедур мне больше нравится эта...
1. Не даст поставить разделитель до ввода первого символа.
2. Заменит точку или запятую на decimalseparator, установленный в региональных настройках винды.
3. Не даст записать лишние цифры после разделителя.

procedure TAddForm.Edit1KeyPress(Sender: TObject; var Key: Char);
var vrPos, vrLength, vrSelStart: byte;
const
  I: byte = 1; //К-во знаков после запятой - 2 знака
begin
  with Sender as TEdit do
  begin
    vrLength := Length(Text);
    vrPos := Pos(decimalseparator, Text);
    vrSelStart := SelStart;
  end;
  case Key of
    '0'..'9':
      begin
        if (vrPos > 0) and (vrLength - vrPos > I) and (vrSelStart >= vrPos) then
          Key := #0;
      end;
    ',', '.':
      begin
        if (vrPos > 0) or (vrSelStart = 0) or (vrLength = 0) then
          Key := #0
        else
          Key := decimalseparator;
      end;
    #8: ;
  else
    Key := #0;
  end;

[Stilet]

и всё. код проверки не сработает.

Именно поэтому если по ТЗ требуется вывод сообщения, такие вещи делают не при вводе а во время вычислений, того что ввели.

[phomm]

Если честно, проверка на кейпресс/кейдаун/кейап неуниверсальна, мне никто не запретит копипастнуть что-либо туда, собственная же обработка видится мне слегка неудобной.

Я пользуюсь всегда в таком случае событие стринггрида OnSetEditText - он срабатывает именно тогда когда сформирован текст для вставки в редактируемую ячейку. Проверять на цифру обычным TryInttoStr