type
CJJS = packed record
JGMC : string;//机构名称
JGDM : string;//机构代码
XM : string;//姓名
GH : Integer;//工号
BZ : string;//备注，自办代办等
YF : string;//月份
LB : string;//业务类别 南安电费，移动话费等
JE : Currency;//交易金额
JJ : Boolean;//酬金是否是件
BS : Integer;//交易笔数
YFCJ : Currency;//应付酬金
DKSK : Currency;//代扣税款
SFCJ : Currency;//实付酬金
end;
var
WD_CJJS: array of CJJS;

对这样的数组进行按其中之一项内容快速排序及二分查找已经实现
如何实现两项及以上内容进行快速排序及高效查找?
比如按JGDM+GH+YF进行排序并查找，遍历数组效率太低。
谢谢！