Error: Is not a valid integer value

[darkmaster360]

Saludos.

Tengo un SpinEdit y al borrar el texto me salta el error: Is not a valid integer value.

Estuve mirando en google, en algunos temas de este foro pero nada, y de otras páginas en inglés y probando los códigos que mencionaban pero no me sirvió ninguno. Le puse este:

Código Delphi [-]
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
    Timer1.Interval := SpinEdit1.Value;
     try
    A := StrToIntDef(SpinEdit1.Text, 0)
  except
    on Exception : EConvertError do
      ShowMessage(Exception.Message);
  end;
  end;

Pero nada me sigue apareciendo. ¿Alguna solución?

[[oscarac]]

he probado el ejemplo que pones y si me funciona bien
lo que no colocas es que tipo de Variable es "A"
quiza ahi este el problema

[darkmaster360]

Hola oscarac

El tipo de variable lo puse al principio:

Código Delphi [-]
implementation

var
A: integer;

Pero se me olvido añadirlo
El código no me funciona, al borrar el texto del spinedit me salta el error, o al cambiar el número escribiendo otro.

Saludos.

[[oscarac]]

mmm dejame revisar

[ecfisa]

Hola Darkmaster360.

Código Delphi [-]
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
    Timer1.Interval := SpinEdit1.Value;
end;

Siendo la propiedad Value de tipo Integer, no hay manera de que la porción de código anterior te dé el error "Is not a valid integer value".

¿ No te sirve hacer ?

Código Delphi [-]
   A := SpinEdit1.Value;

Por que supongo que el error se dispara cuando ingresas un número decimal...

Saludos.

[[oscarac]]

prueba haciendo esto

Código Delphi [-]
procedure TForm1.SpinEdit1Change(Sender: TObject);
var i,c:integer;
var s:string;
begin
 begin
   s:=Tspinedit(sender).text;
   val(s,i,c);
   if c <> 0 then
   begin
     Tspinedit(sender).value:=Tspinedit(sender).tag;
     beep;
   end
   else
     Tspinedit(sender).tag:=i;
 end;
end;

[ecfisa]

Hola de nuevo.

Me quedé con la duda (por que coincido con oscarac que el código no tendría que dar error) y la única forma que pude reproducir la excepción con cadena vacía fue así:

Código Delphi [-]
procedure TForm1.SpinEdit1Change(Sender: TObject);
var
  A: Integer;
begin
  Caption := IntToStr(SpinEdit1.Value);
  A       := StrToInt(SpinEdit1.Text)
end;

Pero de ningún modo usando la función StrToIntDef ya que si no se puede realizar la conversión el valor devuelto es el designado por defecto (0).

Saludos.