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

[[Lepe]]

Empezado por Roman

sólo que están mal colocados algunos paréntesis. Chécalos.

OFFTOPIC: Como sé que DarkByte tiene las Gexperts instaladas, pues lo mas facil es colocar el cursor
justo antes de un paréntesis y despues pulsar la combinación CTRL+ ALT+ <cursor derecha> para que te diga
cual es el paréntesis coincidente, tus ojos te lo agradecerán .

Saludos

[mamcx]

A proposito, ya va siendo tiempo en estudiar un poco las expresiones regulares. Este tipo de código se va agrandando demasiado, y con tres lineas de expresiones regulares se hace practicamente cualquier tarea de parsing de texto. Una buena biblioteca es http://www.regexlib.com/

[roman]

Empezado por Lepe

¿esto no seria lo mismo?

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

¿Y esto?

Código Delphi [-]
UpCase(Nombre[i]) in ['0'..'9','A'..'Z']

Aunque para considerar también la 'ñ' creo que se necesitará así:

Código Delphi [-]
AnsiUpperCase(Nombre[i]) in ['0'..'9','A'..'Z', 'Ñ']

// Saludos

[roman]

Empezado por mamcx

A proposito, ya va siendo tiempo en estudiar un poco las expresiones regulares.

Totalmente de acuerdo aunque este caso se maneja fácilmente sin expresiones regulares.

Pensé que el enlace que pones era una biblioteca de expresiones regulares pero veo que es literalmente una biblioteca de expresiones regulares.

¿Conoces una buena implementación para Delphi?

// Saludos

[mamcx]

Cierto. Lo que pasa es que el tipo de programa (Telnet) y CUALQUIERA de la categoria Servidor Web (Paginas Web, Servicios Web, Generadores de Html, Ftps, etc...) que en ultimas, siempre manipulan cadenas de caracteres por todos lados se va volviendo un spaguetti de varias funciones de estas... En especial porque no hay que olvidar la proteccion contra injecciones de codigo de toda clase y cosas por el estilo.

Para Delphi si es la parte .NET, este provee unas librerias excelentes. Tambien en las de DevExpress y las de TurboPower hay asi como otras que se consiguen. Por el momento, tengo experiencia es con las de :NET que es donde me ha tocado mascar y tragar expresiones regulares....

Pensé que el enlace que pones era una biblioteca de expresiones regulares pero veo que es literalmente una biblioteca de expresiones regulares.

Lo que me hizo acordar que para entender la recursividad primero hay que entender la recursividad...

[roman]

Empezado por mamcx

donde me ha tocado mascar y tragar expresiones regulares....

Yo las he mascado un poquito nada más en PHP y el producto fueron las presentes etiquetas [delphi] . El código es realmente simple y se obtiene un resultado muy aceptable. Así que concuerdo contigo, las expresiones regulares son una herramienta muy potente.

Siempre me decepcionó que Delphi no implementara un buen motor de expresiones regulares.

Empezado por mamcx

Lo que me hizo acordar que para entender la recursividad primero hay que entender la recursividad...

Esta es una frase realmente buena

// Saludos

[delphi.com.ar]

Empezado por roman

¿Y esto?

Código Delphi [-]
UpCase(Nombre[i]) in ['0'..'9','A'..'Z']

Aunque para considerar también la 'ñ' creo que se necesitará así:

Código Delphi [-]
AnsiUpperCase(Nombre[i]) in ['0'..'9','A'..'Z', 'Ñ']

Una opción "mas económica" para el procesador, puede ser guardar el valor en mayúsculas de la variable Nombre y no convertir cada caracter.

Saludos!

[DarkByte]

Muchísimas Gracias a todos.. funciona perfectamente y además he conseguido aprender algo más. Muchas gracias de nuevo.