On Wed, 13 Jul 2005 16:02:21 -0500 Elio Cuevas Gómez <[EMAIL PROTECTED]> wrote:
> 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); Don't you want 'ReadLn' ? What does Read do anyway, on PChars, strings and arrays ? Micha _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
