Validar campo

[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.

[[egostar]]

También podrías usar la funcion TryStrToFloat.

Código Delphi [-]
procedure TForm1.Edit1Exit(Sender: TObject);
var
  Valor: Extended;
begin
  if TryStrtoFloat(Edit1.Text,Valor) = true then begin
     ShowMessage(FloattoStr(Valor));
  end
  else begin
         ShowMessage('ERROR DE CONVERSION');
  end;
end;

Salud OS.

[Juan Reyes]

Disculpa las molestias sabes, no se si tenga que ver la versión de Delphi estoy ocupando la 5, ya que al momento de compilarlo me despliega que no esta declarado TryStrToFloat.

Gracias por tu apoyo y tiempo.