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

[memsom at interalpha.co.uk]

> 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.

Matt

---------------------------------------------
This message was sent using Mistral WebMail.
http://www.mistral.co.uk/