[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