Проверка под Edit

[teres]

Нужно написать проверку под Edit а именно при вводе символа или буквы (слова) выдавало ошибку "не верние данные". Помагите

[_Troy]

Событие onChange

[NetSpace]

я как-то делал проще: в обработчике ошибок try введённый текст делил на 1.
Если пользователем было введено число, то оно делилось и всё было ясно. а вот если был другой текст, то, понятно, что он не делился на 1 и была ошибка, которую можно было обработать.

[Стелс]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  If Key >= #32
    Then
    If Not (Key In ['0'..'9']) 
     Then begin
 Key := #0;
ShowMessage('Не на те кнопки жмеш !');
end;
end;

[Аватар]

Стелс не все так просто, управляющие курсором кнопки тоже нужно обрабатывть

[Стелс]

Сообщение от Аватар

Стелс не все так просто, управляющие курсором кнопки тоже нужно обрабатывть

Нафига ??? Кнопки курсора символов не вводят......

[Аватар]

Но KeyPress все равно отрабатывает и вместо Backspace, Del, Left и т.д. что получим?

add

да не прав, спать пора. Но Backspace все равно нужно

[chertovich]

  try
    Value := StrToFloat;
  except
    on EConvertError do
    begin
      ShowMessage('Введены некорректные данные');
    end;
  end;

Желательно этот код не использовать в OnChange, лучше в обработчике OnClick кнопки.

Можно еще написать свою функцию наподобие IsNumeric, которая будет возвращать True если это число

function IsNumeric(const Value: string): Boolean;
var
  I: Integer;
begin
  // Значение по умолчанию
  Result := Length(Value) <> 0;

  for I := 1 to Length(Value) do
  begin
    if not (Value[I] in ['0'..'9', ',']) then
    begin
      Result := False;
      Exit;
    end;
  end;

end;

Использовать так:

if not IsNumeric(Edit1.Text) then ShowMessage('Введены некорректные данные');

[visualserg]

На самом деле всё гораздо проще, в sysutils уже есть такая функция - это TryStrToInt

var
  i: integer;
begin
  if TryStrToInt(edit1.text, i) then
    ShowMessage('Число ' + inttostr(i))
  else
    ShowMessage('Не число');

[tsar_]

teres, уточните, какие знаки (цифры - понятно, может запятые/точки и т.д.).