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

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

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