Test Foro de elhacker.net SMF 2.1

Programación => Programación General => Mensaje iniciado por: oxi12pek en 6 Noviembre 2012, 20:36 PM

Título: Ayuda freepascal
Publicado por: oxi12pek en 6 Noviembre 2012, 20:36 PM
Hola a todos! Me gustaria saber como puedo leer un string de x tamaño y que la lectura termine al pulsarle a enter.
Gracias
Título: Re: Ayuda freepascal
Publicado por: dennis094 en 17 Noviembre 2012, 22:46 PM
Hola,
no entiendo muy bien tu pregunta.. pero yo entiendo que tu quieres introducir un string, y que al pulsar enter, se muestre en pantalla el numero que has ingresado, en ese caso la funcion seria:

program LeerString;
var num:string;
begin
writeln('LEER STRING');
writeln;
write('Introduzca el string');
readln(num)
writeln('El string introducido es: ',num);
readln;
end.