[Lazarus] Lazarus Release 1.6.4

Martok listbox at martoks-place.de
Wed Mar 1 19:19:58 CET 2017


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


Martok



More information about the Lazarus mailing list