Autor |
Mensaje |
kei
Nivel 3
Registrado: 08 Mar 2009
Mensajes: 42
Carrera: Industrial
|
|
Hola! Quiero hacer una función para validar texto y no compila. Me basé en la validación con nº reales pero (claramente) no me sale. Dejo el código para ver si me pueden ayudar...
Gracias.
PHP:
|
<?php FUNCTION VALIDAR_PROVINCIA: STRING; {Una función que valida la provincia}
VAR
SET_VALIDOS: SET OF CHAR;
S_CADENA: STRING[42];
C_LEIDO: CHAR;
S_VALIDADO: STRING;
I_COD: INTEGER;
BEGIN
SET_VALIDOS := ['A'..'Z', 'a'..'z'];
S_CADENA:= '';
WRITE ('Provincia: ');
REPEAT
C_LEIDO:= READKEY;
IF C_LEIDO IN SET_VALIDOS THEN
WRITE(C_LEIDO);
UNTIL C_LEIDO = #13;
VAL(S_CADENA, S_VALIDADO, I_COD);
VALIDAR_PROVINCIA:= S_VALIDADO
END; ?>
|
|
|
|
|
|
|
|
|
|
Flaaanders
Nivel 9
Edad: 35
Registrado: 07 Sep 2008
Mensajes: 1102
Ubicación: Capital Federal - Almagro Papá!!!
Carrera: Electricista y Industrial
|
|
Cuando compilas, no te teira un código de error????
Yo estoy en la misma que vos!
|
|
|
|
_________________ Responsabilidades:
Las miserias del mundo están ahí, y sólo hay dos modos de reaccionar ante ellas: o entender que uno no tiene la culpa y por lo tanto encogerse de hombros y decir que no está en sus manos remediarlo -y esto es cierto-, o bien asumir que, aun cuando no está en nuestras manos resolverlo, hay que comportarnos como si así fuera.
José Saramago 1922-2010.
|
|
|
|
|
Mafia
Nivel 9
Edad: 34
Registrado: 16 Ago 2008
Mensajes: 4451
Ubicación: en el Mafia-Movil
Carrera: Civil
|
|
los codigos de error muchas veces tienen un numero, ej 201 202, etc
en internet está que cosa es cada error
|
|
|
|
_________________ Saludos, Ing. Mafia
|
|
|
|
|
Sebastian Santisi
Administrador Técnico
Edad: 42
Registrado: 23 Ago 2005
Mensajes: 17451
|
|
Desde ya, te aclaro que Pascal no toqué en mi vida.
kei escribió:
|
Hola! Quiero hacer una función para validar texto y no compila. Me basé en la validación con nº reales pero (claramente) no me sale. Dejo el código para ver si me pueden ayudar...
|
¿Qué se supone que es cada variable?, ¿qué son los parámetros?
kei escribió:
|
Gracias.
FUNCTION VALIDAR_PROVINCIA: STRING; {Una función que valida la provincia}
VAR
SET_VALIDOS: SET OF CHAR;
S_CADENA: STRING[42];
|
Cadena es un arreglo de 42 cadenas, ¿es esto lo que querés?, ¿no estarás pensando en un arreglo de 42 chars? (en ese caso, es una única STRING)
kei escribió:
|
C_LEIDO: CHAR;
S_VALIDADO: STRING;
I_COD: INTEGER;
BEGIN
SET_VALIDOS := ['A'..'Z', 'a'..'z'];
S_CADENA:= '';
WRITE ('Provincia: ');
REPEAT
C_LEIDO:= READKEY;
IF C_LEIDO IN SET_VALIDOS THEN
WRITE(C_LEIDO);
|
¿Para qué lo escribís?, ¿no se supone que lo querés guardar?
kei escribió:
|
UNTIL C_LEIDO = #13;
VAL(S_CADENA, S_VALIDADO, I_COD);
|
Probablemente no compile por esto... se supone que si tenés una cadena de caracteres (primer parámetro) la convertís en entero guardándola en el segundo parámetro... tu segundo parámetro no es entero.
kei escribió:
|
VALIDAR_PROVINCIA:= S_VALIDADO
END;
|
|
|
|
|
_________________
|
|
|
|
|
kei
Nivel 3
Registrado: 08 Mar 2009
Mensajes: 42
Carrera: Industrial
|
|
Encontré que el error importante está en:
Código:
|
VAL(S_CADENA, S_VALIDADO, I_COD);
|
Eso no va... pero ya que SS me preguntó, yo lo que quiero hacer es un arreglo de 42 chars (no me sale). Además, para guardarlo hice un procedure (está bien?)
Sebastian Santisi escribió:
|
Probablemente no compile por esto... se supone que si tenés una cadena de caracteres (primer parámetro) la convertís en entero guardándola en el segundo parámetro... tu segundo parámetro no es entero.
Kei escribió:
|
VALIDAR_PROVINCIA:= S_VALIDADO
END;
|
|
Como tendría que arreglar esta parte?
|
|
|
|
|
|
|
|
|
|
|
Ver tema siguiente
Ver tema anterior
Podés publicar nuevos temas en este foro No podés responder a temas en este foro No podés editar tus mensajes en este foro No podés borrar tus mensajes en este foro No podés votar en encuestas en este foro No Podéspostear archivos en este foro No Podés bajar archivos de este foro
|
Todas las horas son ART, ARST (GMT - 3, GMT - 2 Horas)
Protected by CBACK CrackerTracker365 Attacks blocked.
|
|
[ Tiempo: 0.2867s ][ Pedidos: 20 (0.1985s) ] |