Validar campo

[Juan Reyes]

Buenas tardes, me podrian apoyar con esta sentencia, quiero validar un campo en el cual si el usuario escribe cualquier ya sea caracter o string de texto despliegue un mensaje. Debe admitir únicamente números ya sea enteros o decimales.

Código Delphi [-]
procedure Tfcapturact.copau1Exit(Sender: TObject);
begin
if copau1.text in ['a*'..'z*']then
 begin
   application.messagebox('error',
  'Error',mb_iconwarning);
  end
  else begin end;
end;

Gracias por su tiempo y apoyo.

[jachguate]

Hola.

Por "Validar un campo" te referís a un campo de base de datos?

[Juan Reyes]

Esta validación es despues de que el usuario ingresa el string y cambia de TDedit.text.

[jachguate]

bien... podes hacer algo como:

Código Delphi [-]
begin
  try
    StrToFloat(Edit1.Text);
  except
    on EConvertError do
    begin
      Edit1.SetFocus;
      ShowMessage('Debe ingresar un número válido!');
    end;
  end;
end;

Hasta luego.

[Juan Reyes]

Gracias de antemano por tu tiempo y apoyo, fíjate que ya lo probe colocando esta sentencia en el evento OnExit del campo para que me despliegue el mensaje derror al cambiar de campo pero me despliega el siguiente mensaje y truena el programa:

Project LibroVAE.exe raised exception class EConvertError with message "letra 'is not valid float value'.

Ojala y me puedas seguir apoyando. Gracias nuevamente.

[jachguate]

Supongo que estas ejecutando la aplicación dentro del ide de delphi, y este salta por la excepción. Dado que no decis en que versión del mismo estas trabajando, no puedo indicarte cómo desactivar ese comportamiento... pero si corres tu aplicación desde fuera del ide, verás que funciona correctamente.

Es importante aprender a separar los mensajes del IDE de los de tu aplicación.

Hasta luego.