Error: Is not a valid integer value

[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

[darkmaster360]

Hola ecfisa.

El código que puse al principio si que me funcionaba pero me daba error porque tenía la línea:

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

Es esa línea probé quitandola y me funciona el código pero no me sirve el spinedit si no me cambia el intervalo del timer, también probé con los demás que me habéis ido pasando y me pasa lo mismo es esa línea.

También probé poniendo lo que me proponías en el mensaje #5 de poner:

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

Pero me sigue dando error

Saludos

[ecfisa]

Empezado por darkmaster360

Hola ecfisa.

El código que puse al principio si que me funcionaba pero me daba error porque tenía la línea:

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

Es esa línea probé quitandola y me funciona el código pero no me sirve el spinedit si no me cambia el intervalo del timer, también probé con los demás que me habéis ido pasando y me pasa lo mismo es esa línea.

También probé poniendo lo que me proponías en el mensaje #5 de poner:

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

Pero me sigue dando error

Saludos

Hola.

La verdad, no sé que decirte. Será la versión de Delphi o un problema de instalación ...

No veo manera que la propiedad Value de tipo Integer genere el error "Is not a valid integer value" cuando se le está asignando su contenido a una variable de tipo Integer...

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?