Error: Illegal qualifier

[apostleofchrist]

Greetings everyone!

I'd like to ask to the community for your assistance on an annoying problem.

I"m trying to install this component from http://www.delphiarea.com/products/delphi-components/marquee/.
The problem is that this component has no installer for Lazarus. No problem. I know the drill. I'm stucked, however, when I try to compile the new package. I've being receving this error: C:\lazarus\components\marquee\SimpleHTML.pas(399,17) Error: Illegal qualifier

I've made a extensive research on internet, but I had no success in finding a solution.

This is the part of the code where the compiling error occurs:

Code: [Select]

function TImageCache.Find(const URI: WideString): PPImageCacheItem;
var
  B: Integer;
begin
  B := HashOf(URI) mod IMAGE_CACHE_BUCKET_SIZE;
  Result := @Buckets[B];

  while Result^ <> nil do
  begin
    if (Result^.URI = URI) then <-- The error happens here!
      Exit
    else
      Result := @Result^.Next;
  end;
end; 

Here's the others samples of code to put it on context.

Code: [Select]

  PPImageCacheItem = ^PImageCacheItem;
  PImageCacheItem = ^TImageCacheItem;
  TImageCacheItem = record
    Next: PImageCacheItem;
    Image: TPicture;
    URI: WideString;
  end;


Code: [Select]

  TImageCache = class
  private
    Buckets: array[0..IMAGE_CACHE_BUCKET_SIZE-1] of PImageCacheItem;
    .....................................

Thank you!

[marcov]

If this is a component of Delphi origin, do you enable Delphi compatibility mode ($Mode delphi or -Sd parameter)?

[Leledumbo]

Delphi and Turbo Pascal allow pointer indirection to be dropped in some (or perhaps all?) contexts, in this case the

Code: [Select]

Result^.URIAs in the definition, Result is of type PPImageCacheItem which when expanded becomes ^^TImageCacheItem, so actually it has to be Result^^.URI. Luckily, Free Pascal's Delphi compatibility mode ({$mode delphi} in source or -Sd in command line) accepts this. So as Marco said, please try enabling that.

[apostleofchrist]

Thank you very much guys!   

May the Lord bless you all.