validar el ingreso a un Edit solo numeros

[ContraVeneno]

si ya estas utilizando un TjvValidateEdit, ya no es necesario ni validar nada, ni hacer conversiones, ni programar nada...

ahora, ¿en que parte del código te marca que error?

[fidel]

Para validar edits vacíos y que no te de error al convertirlos en entero basta con poner un 0 (cero) delante del texto a convertir:

.... auxiliar:= strtoint(Trim( '0' + LbSelectorCarton.Text))

[Loreiev]

Empezado por fidel

Para validar edits vacíos y que no te de error al convertirlos en entero basta con poner un 0 (cero) delante del texto a convertir:

.... auxiliar:= strtoint(Trim( '0' + LbSelectorCarton.Text))

Hola, que tal? prové con eso de poner 0 pero tampoco funciona, sique saltando el error de que '' no es un valor entero válido.

Este error salta cuando cierro el formulario que muestra los cartones de lotería y te permite editarlos, al aceptar los cambios da error y marca el último close dentro de este procedimiento:

Código Delphi [-]
procedure TFrmCartones.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 if MessageDlg('Desea guardar los cambios en el cartón?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
 begin
  if contfila then
  begin
   if not contnum then
   begin
    showmessage('El cartón debe tener 15 números',);
    exit;
   end
   else
   begin
    if not cartondistinto then showmessage('Ese cartón ya existe')
    else
    begin
     editformato;
     EditarCarton(0+lbNumeroCarton.Value);
    end;
   end;
  end;
 end;
 Close;
end;

El código de Editar cartón 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;

Bueno, si necistás más información avisame. Porque yo sigo igual de perdida con esto.

Gracias por sus respuestas

[ContraVeneno]

cambia el "Close" donde te marca el error por "Action := caFree;"

[Loreiev]

Empezado por ContraVeneno

cambia el "Close" donde te marca el error por "Action := caFree;"

Hola, prové lo que me dijiste pero sigue dando el mismo error, sólo que ahora marca la sentencia: Action := caFree;
Se te ocurre que puede ser?

Desde ya muchas gracias

[fidel]

un 0 (cero) delante de un valor númerico no sirve para nada
EditarCarton(0+lbNumeroCarton.Value);

Tienes que ponerlo como caracter, entre comillas a la hora de
transformar el string a número para que si el edit estáa vacio
no de error al transformar un string vacio.
Creo que serría en esta línea.
numerocarton[l,k]:= strtoint('0' + frmCartones.GrillaCarton.Cells[i,j]) ;

[Loreiev]

Empezado por fidel

un 0 (cero) delante de un valor númerico no sirve para nada
EditarCarton(0+lbNumeroCarton.Value);

Tienes que ponerlo como caracter, entre comillas a la hora de
transformar el string a número para que si el edit estáa vacio
no de error al transformar un string vacio.
Creo que serría en esta línea.
numerocarton[l,k]:= strtoint('0' + frmCartones.GrillaCarton.Cells[i,j]) ;

Efectivamente es como vos decís, me dí cuenta ayer que el problema no estaba donde yo pensaba (en el edit) sino en la línea

numerocarton[l,k]:= strtoint('0' + frmCartones.GrillaCarton.Cells[i,j])

donde aparecían valores nulos.

Muchas gracias a todos por sus aportes.

Saludos

[miado]

Puedes utilizar esto en el evento OnKeyPress del Edit;

procedure TForm1.DBEdit1KeyPress(Sender: TObject;
var Key: Char);
begin

if (StrScan('1234567890', Key) = nil) and (Key <> #8) then Key := #0;

end;