validar un integer cargado en un edit

[marcos_0586]

Hola gente del foro, les comento que estoy realizando una aplicación en delphi7 y me surgió un problemita a la hora de validar un edit, el tema es asi yo ingreso un numero de DNI (tipo numérico) en un edit luego paso ese dato a integer y lo guardo en una tabla de esta forma: Table1.FieldByName('Dni').AsInteger:=StrToInt(Edit3.Text);
Cuando se ingresa un valor que no es numérico la aplicación se cuelga porque no es un valor valido para almacenar en la tabla, mi idea es anticiparme a la llegada del error y "desviar" el código de manera que no se cuelgue la aplicación y avisar al usuario que ese no es un valor permitido, pero no se me ocurre como? es posible lograr esto o algo parecido? gracias.

[Neftali [Germán.Estévez]]

La más sencilla que se me ocurre es que utilices:

Código Delphi [-]
Table1.FieldByName('Dni').AsInteger:=StrToInt(Edit3.Text, 0);

Si es incorrecto te guardará un 0 en lugar de fallar.
Otra opción es que compruebes el contenido antes de intentar guardarlo, para avisar al usuario.

Aun puedes utilizar otra similar: TryStrToInt

[luisgutierrezb]

Nada mas como complemento, o no se si en versiones nuevas de delphi se pueda con el strtoint, pero en versiones hasta la 7 es StrToIntDef(Edit3.Text, 0);

[ecfisa]

Hola marcos.

Existen dos modos que pueden ingresar caracteres que no son números, en forma directa y pegándolos sobre el Edit.

Para evitar el ingreso usa el evento OnKeyPress del Edit:

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#8,#13,'0'..'9']) then
  begin
    Beep;
    Key:= #0;
  end;
end;

Para evitar que peguen caracteres no numéricos, usa el evento OnExit:

procedure TForm3.Edit1Exit(Sender: TObject);
var
  n,cd: Integer;
begin
  Val(Edit3.Text, n, cd);
  if cd > 0 then
  begin
    ShowMessage('No es un número válido');
    Edit1.SetFocus;
  end;
end;

Saludos.