Buscar en una string todo lo que no sean caracteres A-Z y numeros 0-9

[DarkByte]

Buenas, estoy intentando hacer un servicio telnet para practicar (quiero asegurarme de que se hacer lo pequeñito antes de hacer un proyecto algo más grande que tengo en mente) y me he quedado pillado en una parte..

He construido una función para evaluarme si una cadena contiene carácteres que no sean de los rangos: [A-Z], [a-z] y [0-9]... y si contiene uno de esos carácteres.. vuelve a pedir al usuario la entrada de datos... Pego ambos códigos:

Código Delphi [-]
function EvaluaCaracteres (Nombre:String):boolean;
var
  I:integer;
begin
  Result := True;
  for I := 0 to Length(Nombre) do
  begin
    If (UpperCase(Nombre[i]) <> 'A') and (UpperCase(Nombre[i]) <> 'B') and (UpperCase(Nombre[i]) <> 'C') 
and (UpperCase(Nombre[i]) <> 'D') and (UpperCase(Nombre[i]) <> 'E') and (UpperCase(Nombre[i]) <> 'F') and
 (UpperCase(Nombre[i]) <> 'G') and  (UpperCase(Nombre[i]) <> 'H') and  (UpperCase(Nombre[i]) <> 'I') 
and  (UpperCase(Nombre[i]) <> 'J') and  (UpperCase(Nombre[i]) <> 'K') and  (UpperCase(Nombre[i]) <> 'L') and  
(UpperCase(Nombre[i]) <> 'M') and
    (UpperCase(Nombre[i]) <> 'N') and  (UpperCase(Nombre[i]) <> 'Ñ') and  (UpperCase(Nombre[i]) <> 'O') 
and  (UpperCase(Nombre[i]) <> 'P') and  (UpperCase(Nombre[i]) <> 'Q') and  (UpperCase(Nombre[i]) <> 'R') and  
(UpperCase(Nombre[i]) <> 'S') and  (UpperCase(Nombre[i]) <> 'T') and  (UpperCase(Nombre[i]) <> 'U') 
and  (UpperCase(Nombre[i]) <> 'V') and (UpperCase(Nombre[i]) <> 'W') and  (UpperCase(Nombre[i]) <> 'X') 
and  (UpperCase(Nombre[i]) <> 'Y') and  (UpperCase(Nombre[i]) <> 'Z') and

    (UpperCase(Nombre[i]) <> '0') and  (UpperCase(Nombre[i]) <> '1') and  (UpperCase(Nombre[i]) <> '2') 
and  (UpperCase(Nombre[i]) <> '3') and  (UpperCase(Nombre[i]) <> '4') and  (UpperCase(Nombre[i]) <> '5') and  
(UpperCase(Nombre[i]) <> '6') and  (UpperCase(Nombre[i]) <> '7') and  (UpperCase(Nombre[i]) <> '8') 
and  (UpperCase(Nombre[i]) <> '9') Then
    begin
      Result := False;
    end;
  end;
end;

Y aquí pego el lugar donde lo llamo:

Código Delphi [-]
procedure TForm1.IdTelnetServer1Connect(AThread: TIdPeerThread);
var
  Mensaje,Nombre:WideString;
  Archivo:TStringList;
//  Aceptado :boolean;
begin
 (...)
  repeat
    AThread.Connection.WriteLn('');
    AThread.Connection.WriteLn('Escriba su nombre:');
    Nombre := AThread.Connection.ReadLn();
    if EvaluaCaracteres(Nombre) = False Then
    begin
      AThread.Connection.WriteLn('El nombre contiene caracteres no validos');
      Aceptado := False;
    end
    Else
    begin
      Aceptado := True;
    end
  until Aceptado = True; 
(...)

Muchísimas gracias

[Julià T.]

Una manera podria ser esta

function EvaluaCaracteres (Nombre:String):boolean;
var
  I:integer;
begin
  Result := False;
  for I := 0 to Length(Nombre) do
    If not( (Nombre[i]) in [0..9]) or (Nombre[i]) in ['a'..'z']) or (Nombre[i]) in ['A'..'Z']))  then exit;
      Result := True;
end;

[roman]

¡Recórcholis!

Nicolas Wirth se revolvería en su tumba si viera este código
y si aún no ha muerto y lo viera moriría de un infarto.

No te caería mal un repaso a los tipos de datos de Pascal, y
digo Pascal y no Delphi porque desde que Nicolas Wirth lo inventó
introdujo el tipo ordinal y el tipo conjunto.

// Saludos

pd: El mensaje sigue abarcando varias patallas horizontales.

[DarkByte]

Julia, he intentado el código que me has proporcionado.. (cambiando el valor de regreso a False si contiene carácteres fuera del rengo)

[delphi]
function EvaluaCaracteres (Nombre:String):boolean;
var
I:integer;
begin
Result := True;
for I := 0 to Length(Nombre) do
If not( (Nombre[i]) in ['0'..'9']) or (Nombre[i]) in ['a'..'z']) or (Nombre[i]) in ['A'..'Z'])) then
begin
Result := False;
end;
end;
end;[delphi]
He tenido que cambiar [0..9] por ['0'..'9'] porque el delphi me daba incompatibilidad de tipos entre Char e Integer.

Luego, en :

Código Delphi [-]
(Nombre[i]) in ['a'..'z'])

Tengo un error en el in que me salta con un error:
"Operator not applicable to this operand type", y al finalizar la misma línea, me da un error:
"'THEN' expected but ')' found".

Roman, yo sabía que se podía hacer así... lo que pasa es que no recordaba como.. y aunque fuese algo bruto... mi falta de lucidez mental de condujeron a ese basto método.

[roman]

Empezado por DarkByte

Luego, en :

Código Delphi [-]
(Nombre[i]) in ['a'..'z'])

Tengo un error en el in que me salta con un error:
"Operator not applicable to this operand type", y al finalizar la misma línea, me da un error:
"'THEN' expected but ')' found".

El código de Julià T. (que no Julia) es en esencia correcto, sólo que están mal colocados algunos paréntesis. Chécalos.

// Saludos

[[Lepe]]

¿esto no seria lo mismo?

Código Delphi [-]
   Nombre[i] in ['0'..'9','a'..'z','A'..'Z']

Saludos