![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#4
|
||||
|
||||
|
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 : 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.
__________________
:) |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|