Validación de nif

[[seoane]]

En la seccion de trucos, ya añadi al truco de German en los comentarios una funcion para validar el nif. Pero si lo que quieres es solo comprobar su longitud, y letra:

Código Delphi [-]
function ValidarNif(NIF: String): Boolean;
var
  Numero: Integer;
begin
  Result:= FALSE;
  if Length(NIF) = 9 then
  begin
    if TryStrToInt(Copy(NIF,1,Length(NIF)-1),Numero) then
      Result:= NIF[9] in ['A'..'Z','a'..'z'];
  end;
end;

Por ejemplo:

Código Delphi [-]
  if ValidarNif('12345678Z') then
    ShowMessage('Correcto')
  else
    ShowMessage('Incorrecto');

Atencion: Como se pedia, esta funcion solo comprueba la longitud y que la ultima letra este dentro del rango A..Z. Para validar el nif por completo ir a la seccion de trucos.