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

[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 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 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

[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.