dmsbrrgnpnt

darnaldo respondió: Utiliza la instrucción: Var F : Textfile; S : string; Begin AssignFile(F, Getcurrentdir + '\miarchi.txt'); Reset(F); while not eof(F) do begin Readln(F, S); //El resultado es S, te devuelve toda la linea con eso ya puedes hacer bastante. end; Close(f)