TStringList.CustomSort Problem

[npage]

I can't figure out why, but when I try using the CustomSort procedure of any TStringList, I get this error during compile:
Error: Wrong number of parameters specified for call to "MySort"

Lazarus version 1.1
FPC version 2.6.1
SVN version 39572

Here some code:

function MySort(List: TStringList; Index1: integer; Index2: Integer): Integer;
begin
  <my code here>
end;

called in my code with:

MyStringList.CustomSort(MySort);

What am I doing wrong?
I did see a similar post from last year thinking it had something to do with the Gernerics support, but there weren't any replies to that.

Thanks
Chris

[typo]

Code: [Select]

MyStringList.CustomSort(@MySort);


[npage]

Yup that did the trick.

I don't remember having to do that in Delphi.  Is it different, or is my memory worse than I thought?

[howardpc]

It is different in Lazarus if you are using the stricter {$mode objfpc}
To use the looser Delphi syntax specify {$mode delphi}

[BubikolRamios]

The same problem.

As it is, default:

Code: Pascal  [Select][+][-]

1. {$mode objfpc}{$H+}  
2.  

Code: Pascal  [Select][+][-]

1. function TForm1.Listsort(List:TStringList; index1,index2:integer):integer;
2. begin
3.     result:=0;
4. end;    
5.  

If I put @ infront like

Code: Pascal  [Select][+][-]

1. sl.customsort(@Listsort);
2.  

-->

main.pas(860,26) Error: Incompatible type for arg no. 1: Got "<procedure variable type of function(TStringList;LongInt;LongInt):LongInt of object;Register>", expected "<procedure variable type of function(TStringList;LongInt;LongInt):LongInt;Register>"

How to fix that ?

[howardpc]

Declare ListSort() as an independent function in your interface, not as a method of TForm1.

[BubikolRamios]

Thanks.
That solves it.