procedure TForm1.Button1Click(Sender: TObject);
type
TPerson = record
Name: String;
Age: Integer;
end;
var
List: TList<TPerson>;
Comparer: TComparer<TPerson>;
OutList, TPerson1, TPerson2, TPerson3: TPerson;
begin
Comparer := TDelegatedComparer<TPerson>.Create(
function(const Left, Right: TPerson): Integer
begin
Result := Left.Age - Right.Age; // 升序,阼序调换Left、Right前后位置
end);
List := TList<TPerson>.Create(Comparer);
TPerson1.Name := '张三';
TPerson1.Age := 23;
TPerson2.Name := '李四';
TPerson2.Age := 20;
TPerson3.Name := '王五';
TPerson3.Age := 24;
List.add(TPerson3);
List.add(TPerson2);
List.add(TPerson1);
List.Sort();
OutMemo.Clear;
for OutList in List do
OutMemo.lines.add(format('姓名:%s 年龄:%d', [OutList.Name, OutList.Age]));
List.Free();
end;
type
TPerson = record
Name: String;
Age: Integer;
end;
var
List: TList<TPerson>;
Comparer: TComparer<TPerson>;
OutList, TPerson1, TPerson2, TPerson3: TPerson;
begin
Comparer := TDelegatedComparer<TPerson>.Create(
function(const Left, Right: TPerson): Integer
begin
Result := Left.Age - Right.Age; // 升序,阼序调换Left、Right前后位置
end);
List := TList<TPerson>.Create(Comparer);
TPerson1.Name := '张三';
TPerson1.Age := 23;
TPerson2.Name := '李四';
TPerson2.Age := 20;
TPerson3.Name := '王五';
TPerson3.Age := 24;
List.add(TPerson3);
List.add(TPerson2);
List.add(TPerson1);
List.Sort();
OutMemo.Clear;
for OutList in List do
OutMemo.lines.add(format('姓名:%s 年龄:%d', [OutList.Name, OutList.Age]));
List.Free();
end;