TStringList CustomSort в FreePascal

Question

Что я doign неправильно с помощью следующего кода

function CompareFloat(List: TStringList; Index1, Index2: Integer): Integer; 

и я называю это так:

var 
    SL :TstringList; 

SL.CustomSort(CompareFloat); 
//SL.CustomSort(@CompareFloat); // Tried this one also 

Первый вызов функции 'SL.CustomSort (CompareFloat)' подмоткой эта ошибка из компилятора «Ошибка: неправильное количество параметров, указанных для вызова« CompareFloat »

Второй вызов функции« SL.CustomSort (@CompareFloat) »извлекает эту ошибку из компилятора. Ошибка: Onl y класса можно ссылаться на ссылки на класс

Answer 1

SL.CustomSort(CompareFloat); работает, если вы добавите директиву {$mode delphi} куда-то в начало устройства.

Однако SL.CustomSort(@CompareFloat); должен работать нормально. Убедитесь, что сообщение об ошибке не вызвано чем-то другим.

Пример:

program Project1; 

//{$mode delphi} 

uses 
    Classes, 
    SysUtils; 

function CompareFloat(List: TStringList; Index1, Index2: Integer): Integer; 
begin 
    Result := StrToInt(List[Index1]) - StrToInt(List[Index2]); 
end; 

var 
    SL: TStringList; 
begin 
    SL := TStringList.Create; 
    try 
    SL.Add('3'); 
    SL.Add('2'); 
    SL.Add('1'); 
    SL.CustomSort(@CompareFloat); 
    //SL.CustomSort(CompareFloat); 
    Writeln(SL[0], SL[1], SL[2]); 
    Readln; 
    finally 
    SL.Free; 
    end; 
end.