Valor maximo de un campo

[defcon1_es]

Hola.
Yo lo que haría es prevenir que puedan teclear en el edit un valor distinto a los permitidos:

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not(Key in ['0'..'5', #8])
  then Key := #0;
end;

Y te puedes olvidar de capturar excepciones y traducirlas...

[jafera]

Gracias Defcon1_es.

Efectivamente si no pulso un valor entre 0 y 5 no lo admite y ya esta, pero no me limpia el edit y me manda el foco allá mismo para que lo introduzca de nuevo, supongo que le debo dar valor 0 al campo o limpiarlo y mandar un focuscontrol.

Sigo con los progresos

Saludos

Josep

[Casimiro Noteví]

Si quieres que le dé el foco:

Código Delphi [-]
PuntuacionsPV11.SetFocus;

Aunque yo lo haría todo en la BD, tanto el control del valor como la excepción.

[ecfisa]

Hola Josep.

...pero no me limpia el edit y me manda el foco allá mismo para que lo introduzca de nuevo...

Por ahí estoy entendiendo mal la situación, pero según ese código, si presionas otro carácter que los contemplados no se pierde el foco por que no se sale del Edit. Y tampoco hay que introducir nuevamente, ya que directamente no permite el ingreso de caracteres fuera del rango establecido.

Saludos