delphi实现点击列头按隐藏列排序方法

场景：某字段应为数字但由于历史原因被定义为字符串，点击需按数字的要求进行排序
实现原理：判断如果是点击某一列头则调用一次查询，通过传排序规则给后台，由后台将排好序的结果返回给前台
实现办法：采用onclicktitle 方法

第一步，保存当前排序规则 sSortFieldName := gdQuery.SortMarkedColumns.Items[idx].Title.SortMarker;

第二步，执行查询 qry.execute (会重置列头排序规则)

第三步，还原当前排序规则  gdQuery.FieldColumns['id'].Title.SortMarker := sSortFieldName;