[记录一下]BufDataSet排序的时候多列同时排序会出问题

有和网友（不好意思，忘了是那位了）交流中，他反馈BufDataSet多列排序时得到的结果不符合预期，他也给出修复方法，以下是他的验证及修复方法：
环境：fpc 3.3.1
问题复现步骤：

SQLQuery1.IndexFieldNames:='cl;c2 DESC';
这个应该是c1列升序，c2列降序，但是实际是c1,c2列都降序了
影响到SQLQuery，BufDataSet 这些控件

2个列4个组合测试:
都升序：
c1;c2
有1个降序：
c1 DESC;c2
c1;c2 DESC
都降序：
c1 DESC;
c2 DESC

只要有DESC所有列都降序了

解决方法：
将bufdataset.pas的这个函数中：
procedure TCustomBufDataset.ProcessFieldsToCompareStruct
...
ACompareRec.Desc := ACompareRec.Desc or (ADescFields.IndexOf(AField)>-1);
..
将这行的or改成and就正常了:
ACompareRec.Desc := ACompareRec.Desc and (ADescFields.IndexOf(AField)>-1);