Hola, yo tengo un problema parecido, necesito validar un edit que puede tener sólo valores naturales desde el 1 hasta el 250 y quiero que, de ingresar un valor incorrecto lo corrija por 1. Hice este código:
Código Delphi
[-]
if not((Frmcartones.LbSelectorCarton.Text>=#49)and(Frmcartones.LbSelectorCarton.Text<=#57)) then Frmcartones.LbSelectorCarton.Text:=#49;
editformato;
EditarCarton(strtoint(LbSelectorCarton.Text));
Pero me salta el error:
Código:
EConverterror with message "is not a valid integer value"
porqué sigue apareciendo? no me estoy asegurando de que el valor sea entero?
El código del procedimiento EditarCarton es:
Código Delphi
[-]Procedure EditarCarton (num:integer);
var
i,j,k,l:integer;
Begin
k:=0;
l:= num - 1;
for i:=0 to 8 do
begin
for j:=0 to 2 do
begin
numerocarton[l,k]:= strtoint(frmCartones.GrillaCarton.Cells[i,j]) ;
inc(k);
end;
end;
end;