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.