delphi list 分组

[xinyuewanqian]

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里

[pathletboy]

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

[lyhoo163]

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

[hongss]

2楼是大方向，3楼是实施办法 可以建立链表，将所需数据放入链表，再用动态数组保存