delphi list 分组

Question

 PersonItem := TPersonItem.Create;
 PersonItem.colour :=‘黄色’;
 PersonItem.old:=10;
 List .Add(PersonItem ); PersonItem := TPersonItem.Create;
 PersonItem.colour :=‘黑色’;
 PersonItem.old:=11;
 List .Add(PersonItem ); PersonItem := TPersonItem.Create;
 PersonItem.colour :=‘白色’;
 PersonItem.old:=22;
 List .Add(PersonItem ); PersonItem.colour :=‘黄色’;
 PersonItem.old:=33;
 List .Add(PersonItem );
.......可能有很多种颜色，我现在想按颜色统计old的和，其实就是想实现数据库的group by 功能,但是是在LIST里

Answer 1

低效，枚举List，按颜色累加。
高效，添加的时候就计算好和。

Answer 2

建立一个动态数组，在创建 PersonItem 时，将Old值按颜色分类，累加即可。