SoloCodigo

Hola marnueses   ..mm..pienso que podrias utilizar la funcion Mid asi:

Código: Text

1. Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 1)
2.  

con Mid devuelves el número especificado de caracteres de una cadena, en donde el primer parámetro es la cadena, el segundo es el inicio de de donde quieres capturar la cadena y el tercer parametro es hasta donde quieres capturar la cadena.. ..espero que te sirva como una pequeña ayuda..suerte y que te valla bien.. ..chaucitos..  

 
¡Muchas gracias Eliza M.! voy a probarlo a ver que tal va.
 

¡¡Hola Lastent!!
Te adjunto un documento que me acabo de encontrar en internet y creo que te va a ser de utilidad en referencia con la asignación de memoria con punteros. Siento no poder informarte sobre tu otra duda pero no conozco el manejo del Free Pascal
Un saludo  

Hola a todos,   espero que la duda que os planteo nos os parezca muy estúpida. Estoy estudiando el lenguaje Pascal y para probar mis conocimientos estoy tratando de realizar el juego del ahorcado. El problema que se me presenta, por ahora, es que a la hora de sustituir los caracteres de la palabra oculta por '*' estos no se me alinean como quisiera sino que se presentan verticalmente al lado izquierdo de la pantalla.
*
*
*
*
Os adjunto el código que uso para ver si encontráis alguna solución, probablemente será alguna tontería pero llevo un par de día comiéndome la cabeza y no lo he conseguido arreglar.
Gracias de antemano por vuestro tiempo y esfuerzo.  
program fichero_palabras;
uses    crt;
var     cad:string;
        i:integer;
        archivotexto:text;
        BEGIN
        clrscr;
        assign(archivotexto, 'C:\TP\prueba\hombre.txt');
        reset(archivotexto);
        readln(archivotexto,cad);
        textbackground(cyan);
        textcolor(white);
        window(1,1,80,25);
        gotoxy(25,12);
        for i:=1 to length(cad) do
             writeln('*');
        close(archivotexto);
        readln;
        END.