Pascal/Turbo Pascal - Limitar la longitud de un mensaje.

   
Vista:

Limitar la longitud de un mensaje.

Publicado por Lucas (2 intervenciones) el 04/07/2013 03:29:35
Tengo que hacer un programa en Pascal, que le permita ingresar al usuario un mensaje que no supere los 140 caracteres y guardarlo en un arreglo.
Hasta ahora logre guardar el mensaje en el arreglo pero no puedo limitar su tamaño y si el usuario se pasa, el programa recorta el mensaje.

Para guardar el mensaje utilizo el siguiente codigo:

i:=1;
While i<=140 Do Begin
Read(mensaje[i]);
i:=i+1
End
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Limitar la longitud de un mensaje.

Publicado por ramon (2072 intervenciones) el 04/07/2013 11:49:20
Mira primero si estas entrando datos directamente en el array solo entraran la longitud del mismo
o sea
var
texto : array[1..140] of char;
i : integer;

solo podrás entrar 140 caracteres puesto que los otros que entres se perderán pero si la
condición en While es i < 140 no podrán entrar mas por lo tanto donde tienes el problema
no lo veo ano ser que te refieras a si es menor de 140 lo cual no puedes achicar el array
puesto que es fijo .
Yo personal mente haría la entrada así.

var
letras : array[1..140] of char;
texto : string[140];
i : integer;
begin
i := 1;
repeat
tec := readkey; {Entrada de Caracteres}
texto[i] := tec;
texto[0] := chr(i);
gotoxy(10 + i,10);write(texto[i]);
i := i + 1;
if tec = #8 then {Borrado de caracteres con tecla Retroceso}
begin
i := i - 1;
if i < 1 then
i := 1;
texto[i] := ' ';
texto[0] := chr(i);
gotoxy(10 + i,10);write(' ');
end;
until (i > 140) or (tec = #27);
for i := 1 to length(texto) do
letras[i] := texto[i];
end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Limitar la longitud de un mensaje.

Publicado por Lucas (2 intervenciones) el 04/07/2013 21:51:51
Ramon queria darte las gracias, tu sugerencia no soluciono mi problema completamente pero tome prestadas algunas lineas de tu codigo y estoy mas cerca de la solucion.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Limitar la longitud de un mensaje.

Publicado por ramon (2072 intervenciones) el 04/07/2013 22:27:10
Me satisface poder haber sido de ayuda.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar