Hi, the folowing code enters infinite loop in the newest version of FreePascal:
program textfile; var Archivo: Text; Linea: AnsiString; begin Assign(Archivo, 'test.pp'); Reset(Archivo); While not Eof(Archivo) do begin Read(Archivo, Linea); WriteLn(Linea); end; Close(Archivo); end. Am i doing something wrong? This code worked in older releases of the compiler but loops forever in this version. Thanks. _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal