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.