[lazarus] setposition-seek problem found

[Michael.VanCanneyt at Wisa.be]

On Wed, 18 Dec 2002, Peter Vreman wrote:

> The problem is not in the compiler but in the FCL:
>
> There are 2 seek methods:
>
> Seek(int64,TSeekOrigin);
> Seek(Longint,Word);
>
> And in Setposition(int64) is the following code:
>
> Seek(pos,soFromBeginning);
>
> with soFromBeginning defined as:
>
> { TStream seek origins }
> const
>   soFromBeginning = 0;
>
> And this is an integer value that is not compatible with the TSeekOrigin
> enumarted type. So the Seek(longint,Word) will be called.

I have changed it. All compiles with 1.0.7 and 1.1

Michael