Ver Mensaje Individual
  #5  
Antiguo 22-06-2021
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Una opción es interceptar el evento OnSetText del campo asociado que se dispara cada vez que se recibe un nuevo valor pero antes de ser asignado.

Por ejemplo, si el campo asociado al DBEdit se llamase "Numero":
Código Delphi [-]
procedure TuForm.TuDataSetNumeroSetText( Sender: TField; const Text: string );
var
  e: Extended;
begin
  if not TryStrToFloat( Text, e ) then
    raise Exception.Create( 'No es un número decimal válido' );
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita