Mode Delphi

[typo]

I am porting a Delphi code which runs fine on Delphi mode, but what the correspondent way on ObjectFP mode?

The code is:

Code: [Select]

  function StrLComp(const S1, S2: PChar; MaxLen: Integer): Integer;
  begin
    Result := SysUtils.StrLComp(S1, S2, MaxLen);
  end;

var
  Compare: function(const S1, S2: PChar; MaxLen: Integer): Integer; 
begin
    @Compare := @StrLComp;   // now compiler refuses compilation with the message "Can't assign to an adress", but it runs OK on Delphi mode
end;


[Leledumbo]

Code: [Select]

Compare := @StrLComp;

[typo]

I have already tried this, but the message is:

Code: [Select]

unit1.pas(841,19) Error: Incompatible types: got "<address of function(PChar,PChar,LongInt):LongInt;Register>" expected "<procedure variable type of function(const PChar,const PChar,LongInt):LongInt;Register>"


[typo]

Oh, of course, function parameters are declared as constants. I commented out this and now it compiles. Thanks.