[fpc-pascal] System.Write broken?

Elio Cuevas Gómez elio at mixtk.com
Wed Jul 13 23:02:21 CEST 2005


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.




More information about the fpc-pascal mailing list