> 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
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus-ide.org/listinfo/lazarus
