[fpc-pascal]TFileStream.Seek Bug in 1.1 ??

[Michael Van Canneyt]

On Thu, 31 Oct 2002, Peter Vreman wrote:

> >> program test_stream;
> >>
> >> uses Classes;
> >>
> >> var
> >>   Stream: TStream;
> >> begin
> >>   Stream := TFileStream.Create('test_stream.pas', fmOpenRead);
> >>   WriteLn(Stream.Position);
> >>   Stream.Free;
> >> end.
> >
> > This works in Delphi 5 Sp2. I wonder if the file is 'locked' by the OS?
> > Which
> > OS are you using, sorry I forgot to look. Try opening a different file.
> > Try 'fmCreate' a new file. If that works, it could be the OS locking the
> > file.
> >
>
> Test first if the program works with fpc 1.0.x. If it works then it's a
> bug in 1.1.

This IS a bug in 1.1 see my mail to the core list. The same code works
in 1.0, not in 1.1

Michael.