Foros Club Delphi - calculo letra NIE

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - calculo letra NIE (https://www.clubdelphi.com/foros/showthread.php?t=19730)

calculo letra NIE

Hola compañeros.
¿Alguien sabe el algoritmo para el calculo de la letra del NIE?
Yo tengo la del NIF, pero la del Numero de Identificacion de Extrangeros no la sé.
Gracias.

El NIE siempre comienza por una x, después un guión, luego tenemos 6 números y finalmente termina con guión y una letra como el DNI.
Tipo: X-1234567-N.
Por lo demás si puedo ayudarte en algo me escribes. ;)

Hola, despues de ver varias páginas Web, pero sin encontrar ningúna en concreto que me diga cual es el algoritmo exacto, he comprobado que al parecer es el mismo algoritmo pero con sólo la introducción de los 7 digitos numéricos.
Gracias y un saludo.

Código Delphi [-]// Calcul de la lletra del CIF O NIE
// Si es NIE cal introduir la X previa al número al  parametro DNI
function TFPrincipal.CaracterDNI(DNI: string): Char;
begin
    if not((Length(DNI)> 8) or (Length(DNI)< 7)) then     // El CIF deu de ser de 8 o 7 cifres, o el NIE de 7 cifres + la lletra X
    begin
       if (DNI[1] = 'X') then         // validació per a NIE
       begin
          Result := Copy('TRWAGMYFPDXBNJZSQVHLCKET',StrToInt(copy(DNI,2,7)) mod 23+1,1)[1];
       end
       else                           // validació per a DNI
          Result := Copy('TRWAGMYFPDXBNJZSQVHLCKET',StrToInt(DNI) mod 23+1,1)[1];
    end
    else
    begin
        MessageDlg('El CIF o NIE es incorrecto!',mtinformation,[mbOK],0);
        result :=  '#';
    end;
end;