delphi对复杂泛型排序学习笔记
来源:互联网 发布:淘宝客服招聘 可在家 编辑:程序博客网 时间:2024/06/06 01:13
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;
- delphi对复杂泛型排序学习笔记
- Delphi 2010支持泛型了,更复杂更强大
- 对复杂对象数组进行排序
- Delphi 的泛型和匿名函数:对 TObjectList<> 做排序
- Hibernate学习笔记一(复杂多对一和一对多关系)
- oracle学习笔记--复杂查询
- Python学习笔记-复杂表达式
- delphi部分学习笔记
- DELPHI学习笔记1
- Delphi学习笔记
- DELPHI学习笔记1
- DELPHI学习笔记
- delphi学习笔记
- Delphi学习笔记
- DELPHI学习笔记--数据类型
- delphi学习笔记1
- DelPhi学习笔记
- Delphi学习笔记
- Java多线程(十二)之线程池深入分析(下)
- html中简单的script实例
- JVM调优总结
- 图的遍历--思想
- JNI快速入门
- delphi对复杂泛型排序学习笔记
- WCHAR char CString等常用类型互转
- UNICODE十六进制数组转成中英文
- android实现3D效果翻页
- oracle row_number over
- P6spy + sqlprofiler -持久化动态监测框架
- 最大公约数和最小公倍数求法 C++
- 经典alsa 录音和播放程序
- 黑马程序员_GUI回顾01