Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #4  
Antiguo 30-11-2004
Avatar de DarkByte
DarkByte DarkByte is offline
Miembro
 
Registrado: sep 2003
Ubicación: Desconocido
Posts: 1.322
Poder: 24
DarkByte Va por buen camino
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.
__________________
:)
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 05:41:13.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi