Lee un archivo caracter por caracter
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 | {-Victor De la Rocha} {-Algoritmia@groups.msn.com} {-www.myalgorithm.com} { -Programa 2-Le un Archivo Caracter por Caracter } uses crt; const ARCHIVO='ARCHIVO2.TXT'; type F=TEXT; var Letras:F; Caracter:char; procedure titulo(titulo:string;y:integer); begin gotoxy(trunc((80/2)-(length(titulo))/2),y); write(titulo); end;{Procedure titulo} begin{Programa Principal} ClrScr; titulo('Programa 2',1); titulo('>Lee un archivo caracter por caracter<',2); writeln; {*--->Asigno el ARCHIVO a Letras(El que voy a leer)<---*} assign(Letras,ARCHIVO); {$I-} reset(Letras); {$I+} if ioresult=0 then {} else rewrite(Letras); reset(Letras); {*--->Intento leer Letras caracter por caracter<---*} while not eof(Letras) do begin while not eoln(Letras) do begin read(Letras,caracter); write(caracter); end;{while not eoln} readln(Letras); writeln; end;{while not eof} Close(Letras); {*---><---*} ReadKey;end. |
Lee una Archivo caracter por caracter
Este es el archivo de text ARCHIVO.TXT, y no tiene nada de chido este archivo, solamente sirve para la lectura del archivo
este es el ultimo parrafo de mi archivo
fin.
Archivo Leido con exito!