Graba una frase caracter por caracter en un Archivo
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 | {-Victor De la Rocha} {-Algoritmia@groups.msn.com} {-www.myalgorithm.com} { -Programa 1-Lee una frase caracter por caracter } uses crt; const ARCHIVO='ARCHIVO1.TXT'; type F=TEXT; var Letras:F; cont:integer; Frase:string; procedure titulo(titulo:string;y:integer); begin gotoxy(trunc((80/2)-(length(titulo))/2),y); write(titulo); end;{Procedure titulo} begin{Programa Principal} Frase:='Hola ¨Como estas?'; ClrScr; titulo('Programa 1',1); titulo('> Graba la frase ''Hola ¨Como estas?'' caracter por caracter <',2); writeln; {*--->Asigno el ARCHIVO a Letras<---*} assign(Letras,ARCHIVO); {*--->Creamos el archivo como nuevo<---*} rewrite(Letras); {*---><---*} {*--->Intento escribir en Letras caracter por caracter<---*} append(Letras); for cont:=1 to length(Frase) do begin delay(400); Write(Letras,Frase[cont]); {*--->Por si quieren parar el proceso al momento<---*} if keypressed then break; {*---><---*} writeln('Letra ''',Frase[cont],''' introducida.') end; Close(Letras); {*---><---*} ReadKey; end. |
Lee una frase caracter por caracter
-Frase grabada con exito en el archivo ARCHIVO.TXT!!