[Lazarus] Lazarus Release 1.6.4

Ondrej Pokorny lazarus at kluug.net
Wed Mar 1 19:25:58 CET 2017


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


More information about the Lazarus mailing list