Error: Is not a valid integer value

[[oscarac]]

Hola Ecfisa
lo que comenta el amigo, es que si en el SpinEdit presionas la tecla Del o Supr
ahi genera el error, ya lo probe y efectivamente aparece el error
pero con el codigo que le puse ya no aparece

[darkmaster360]

Hola a todos.

Gracias oscarac tu código me funciono
No se parece en nada a otros que encontré en los demás sitios que mire. Gracias a ti también ecfisa

Saludos.

[[oscarac]]

de nada
me alegra haber sido de ayuda

[ecfisa]

Empezado por oscarac

Hola Ecfisa
lo que comenta el amigo, es que si en el SpinEdit presionas la tecla Del o Supr
ahi genera el error, ya lo probe y efectivamente aparece el error
pero con el codigo que le puse ya no aparece

Si si Oscar, eso mismo creí entender.

Pero por mas que intenté no pude lograr el error con el código que nos menciona:

Código Delphi [-]
procedure TForm1.SpinEdit1Change(Sender: TObject);
var
  A: Integer;
begin
  Timer1.Interval := SpinEdit1.Value;
  A := StrToIntDef(SpinEdit1.Text, 0)
end;

(Omití el bloque de protección try ... except por que no hace al error)

Saludos.

[dec]

Hola,

Código Delphi [-]
procedure TForm1.SpinEdit1Change(Sender: TObject);
var
  A: Integer;
begin
  Timer1.Interval := SpinEdit1.Value;
  A := StrToIntDef(SpinEdit1.Text, 0)
end;

¿Para qué demonios sirve ahí la variable "A"?

[darkmaster360]

Se me olvido una cosilla..

Esta línea:

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

Donde la incluyo en el código de oscarac:

Código Delphi [-]
procedure TForm1.SpinEdit1Change(Sender: TObject);
var i,c:integer;
var s:string;
begin
 begin
 Timer1.Interval := SpinEdit1.Value;
   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;

Porque probé y aunque pueda cambiar el número del spinedit no cambia el intervalo del timer

Saludos

[ecfisa]

Hola darkmaster360.

Sigo insistiendo que este código no tendría que darte problemas:

Código Delphi [-]
procedure TForm1.SpinEdit1Change(Sender: TObject);
var
  A: Integer;
begin
  Timer1.Interval := SpinEdit1.Value;
  A := StrToIntDef(SpinEdit1.Text, 0)
end;

Pero bueno... Este es otro modo de hacer lo mismo que consultas:

Código Delphi [-]
procedure TForm1.SpinEdit1Change(Sender: TObject);
var
  A: Integer;
begin
  Timer1.Interval := SpinEdit1.Value;
  if not TryStrToInt(SpinEdit1.Text, a) then
    A := 0;
end;

Y también tengo la misma intriga que dec... ¿ Para que es toda esa movida de la variable "A" ?

Saludos.

[[oscarac]]

Empezado por ecfisa

Y también tengo la misma intriga que dec... ¿ Para que es toda esa movida de la variable "A" ?

quiza la utiliza en otra instancia

[ecfisa]

Empezado por oscarac

quiza la utiliza en otra instancia

Si, seguramente es así. Pero lo que no me queda claro es por que complicarse con la conversión de la propiedad Text si ya tiene el valor como entero en la propiedad Value.

Y como le sugerí en el mensaje #5, basta con hacer

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

para tener asignado el valor en la variable "A" sin la posibilidad de errores de conversión.

Saludos

[dec]

Hola,

Empezado por oscarac

quiza la utiliza en otra instancia

No lo entiendo: ¿no se trata de una variable local del procedimiento? ¿Cómo puede usarse fuera del mismo entonces?