On 01.03.2017 19:19, Martok via Lazarus wrote:
Yes, this is caused by one of the two changes pf 3.0.2. See
http://wiki.lazarus.freepascal.org/User_Changes_3.0.2#Classes
Jürgen appears to already have the fixed version, with the correct ifdefs:
{$if FPC_FULLVERSION >= 30100}
Res:=FSrcStream.Seek(QWord(liOffset), Origin, QWord(liResult));
{$else}
Res:=FSrcStream.Seek(Int64(liOffset), Origin, Int64(liResult)); <------ oleutils.pas(110,64)
Error: Call by var for arg no. 3 has to match exactly: Got "Int64" expected "QWord"
{$endif}
This should work, the error message is in the branch of the conditional that
should not be taken at all...
The conditional should be {$if FPC_FULLVERSION >= 30001} instead of {$if
FPC_FULLVERSION >= 30100} because the change was backported to 3.0.2.
Ondrej
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus-ide.org
http://lists.lazarus-ide.org/listinfo/lazarus
