Error: Is not a valid integer value

[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.

[[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