[branncg]

Código Delphi [-]
function CNumeroNatural.digito(posicion: byte):byte;
var aux:cardinal; vez,digito,nrodigitos:byte;
begin
  aux:=valor;
  nrodigitos:=trunc(ln(valor)/ln(10))+1;
  if (posicion>0) and (posicion<=nrodigitos) then
  begin
    vez:=1;
    while aux>0 do begin

      if (nrodigitos+1)-vez=posicion then digito:=aux mod 10;
      aux:=aux div 10;
      vez:=vez+1;
    end;
    result:=digito;
  end
else
  raise CNumeroNatural.Create('Error: FUERA DE RANGO');

end;

el error sale.....[dcc32 Error] CEMNumeroNatural.pas(51): E2034 Too many actual parameters
[dcc32 Fatal Error] F2063 Could not compile used unit 'CEMNumeroNatural.pas'