mensaje raise Exception.Create('Error Message');

[Casimiro Notevi]

Pon el resto del código fuente y dinos qué error te sale

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

[Ñuño Martínez]

Hola branncg. No olvides poner las etiquetas de código, por favor:


En cuanto a tu consulta, sólo puedes lanzar excepciones de clase Exception o derivadas de este. CNumeroNatural no sólo no cumple con dicho requisito, sino que además estoy por asegurar que su constructor no acepta ningún parámetro.

[ecfisa]

Hola.

Si, opino del mismo modo.

Creo que en tu caso sería:

Código Delphi [-]
...
  else
    raise ERangeError.Create('Error: FUERA DE RANGO');
end;

Saludos