Verificación de dni

[Tomás]

Hola:

Código sacado de trucomanía:

function NIF(DNI: String): Char;
begin
  Result := Copy('TRWAGMYFPDXBNJZSQVHLCKET',StrToInt(DNI) mod 23+1,1)[1];
end;

Como la letra del DNI es la última extraes con Copy desde la posición 1 el nº de caracteres de la cadena menos 1

eDNI := Trim(EditDNI.Text);
eNumerosDNI := Copy(eDNI,1,Length(eDNI)-1);

El problema aquí es que también el usuario te puede poner letras en la parte numérica, por lo que antes deberías recorrer caracter a caracter toda la cadena y verificar que excepto el último caracter los demás son números.

Suerte.

[jachguate]

En lugar de recorrer toda la cadena, yo dejaría algo como:

Código Delphi [-]
try
  numero := IntToStr(copy(eDNI.Text, inicio, longitud));
except
  on EConvertError do
    ShowMessage('Ha introducido una letra donde solo deben ir números');
end;

Código mucho mas sencillo y fácil de leer...

Hasta luego.

[roman]

Curioso:

La expresión StrToInt(DNI) mod 23+1 da siempre un número entre 1 y 23 y la cadena, si mis ojos cuentan bien, tiene 24 caracteres. ¿No se puede omitir la última T?

Por otra parte me parece que luna ya sabía todo esto, sólo preguntó como extraer la parte del número.

// Saludos