为TComparer.Construct未说明的标识符虽然System.Generics.Defaults是使用

Question

这里是我试图从学习的代码，但我坚持

uses 
    System.Generics.Defaults, System.Generics.Collections, System.AnsiStrings, 
    … 

try 
     sortedDictKeys.Sort(TComparer.Construct(
     function (const L, R: integer): integer 
     begin 
     result := R - L; 
     end 
     )) ; 

未声明的标识符TComparer.Construct（

和太多的实际参数错误在上面的代码，我是从about.com

努力，我试图了解泛型的基础知识。我STU ck在这里，不知道为什么它不会编译。

全部代码是在这里：http://delphi.about.com/od/beginners/a/using-t-dictionary-hash-tables-in-delphi.htm

此外，如果有人点我到正确的方向学习TDictionary在泛型参数将是巨大的。

Answer 1

您显示的代码试图使用泛型类，但不包括该类型。

我不知道，如果在以前版本的Delphi编译器推断，从声明的类型，但通常你必须声明的类型，就像这样：

uses Generics.Defaults, Generics.Collections; 

... 

    sortedDictKeys := TList<Integer>.Create(dict.Keys); 
    try 
     sortedDictKeys.Sort(TComparer<Integer>.Construct(
     function (const L, R: integer): integer 
     begin 
     result := R - L; 
     end 
     )) ; 
     for i in sortedDictKeys do 
     log.Lines.Add(Format('%d, %s', [i, dict.Items[i]])); 
    finally 
     sortedDictKeys.Free; 
    end; 

我的代码从您的链接about.com的文章，只是让它编译，但我没有测试它。

正如意见中的要求，完整的功能如下所示：

var 
    dict : TDictionary<integer, char>; 
    sortedDictKeys : TList<integer>; 
    i, rnd : integer; 
    c : char; 
begin 
    log.Clear; 
    log.Text := 'TDictionary usage samples'; 

    Randomize; 

    dict := TDictionary<integer, char>.Create; 
    try 
    //add some key/value pairs (random integers, random characters from A in ASCII) 
    for i := 1 to 20 do 
    begin 
     rnd := Random(30); 

     if NOT dict.ContainsKey(rnd) then dict.Add(rnd, Char(65 + rnd)); 
    end; 

    //remove some key/value pairs (random integers, random characters from A in ASCII) 
    for i := 1 to 20 do 
    begin 
     rnd := Random(30); 

     dict.Remove(rnd); 
    end; 

    //loop elements - go through keys 
    log.Lines.Add('ELEMENTS:'); 
    for i in dict.Keys do 
     log.Lines.Add(Format('%d, %s', [i, dict.Items[i]])); 

    //do we have a "special" key value 
    if dict.TryGetValue(80, c) then 
     log.Lines.Add(Format('Found "special", value: %s', [c])) 
    else 
     log.Lines.Add(Format('"Special" key not found', [])); 


    //sort by keys ascending 
    log.Lines.Add('KEYS SORTED ASCENDING:'); 
    sortedDictKeys := TList<integer>.Create(dict.Keys); 
    try 
     sortedDictKeys.Sort; //default ascending 
     for i in sortedDictKeys do 
     log.Lines.Add(Format('%d, %s', [i, dict.Items[i]])); 
    finally 
     sortedDictKeys.Free; 
    end; 

    //sort by keys descending 
    log.Lines.Add('KEYS SORTED DESCENDING:'); 
    sortedDictKeys := TList<Integer>.Create(dict.Keys); 
    try 
     sortedDictKeys.Sort(TComparer<Integer>.Construct(
     function (const L, R: integer): integer 
     begin 
     result := R - L; 
     end 
     )) ; 
     for i in sortedDictKeys do 
     log.Lines.Add(Format('%d, %s', [i, dict.Items[i]])); 
    finally 
     sortedDictKeys.Free; 
    end; 

    finally 
    dict.Free; 
    end; 
end;