[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