Procedimiento en de validacion

[novato_erick]

Nuevamente Saludos a Todos:

Se creo este procedimiento en mi formulario para validar campos:

Código Delphi [-]
procedure TfrmIArticulo.IngresoNumeros(Sender: TObject; var Key: Char);
begin
 if (key <#48) or (key >#57) then  // si mi numeros son mayor a 0 y menor a 9 entonces
 begin
    showmessage ('Error solo Numeros');
    key :=#0;
  end;
end;

en teoria tengo entendido que solamente al llamar este procedimiento funcional en el evento OnkeyPress del dbEdit deberia de funcionar:

Código Delphi [-]
procedure TfrmIArticulo.dbedtCod_BarraKeyPress(Sender: TObject; var Key: Char);

begin
IngresoNumeros;
end;

pero me manda este error: [DCC Error] IArticulos.pas(113): E2035 Not enough actual parameters

que sucede? Parametro?


//Saludos

[[escafandra]]

Empezado por novato_erick

...me manda este error: [DCC Error] IArticulos.pas(113): E2035 Not enough actual parameters

que sucede? Parametro?

Pues que no has pasado los parámetros a la función IngresoNumeros:

Código Delphi [-]
procedure TfrmIArticulo.dbedtCod_BarraKeyPress(Sender: TObject; var Key: Char);
begin
  IngresoNumeros(Sender, Key);
end;

Saludos.

[novato_erick]

Ayala vida....


escafandra Muchas gracias....