//开始排序 If ((Pos('ASC',Sort)= 0) And (Pos('DESC',Sort)<> 0)) Or ((Pos('ASC',Sort)= 0) And (Pos('DESC',Sort)= 0)) Then begin Sort:= Column.fieldname+' ASC'; Column.Title.Caption:= Column.Title.Caption + '↑'; end Else begin Sort:= Column.fieldname+' DESC'; Column.Title.Caption:= Column.Title.Caption + '↓'; end;
If ((Pos('ASC',Sort)= 0) And (Pos('DESC',Sort)<> 0)) Or ((Pos('ASC',Sort)= 0) And (Pos('DESC',Sort)= 0)) Then
begin
Sort:= Column.fieldname+' ASC';
Column.Title.Caption:= Column.Title.Caption + '↑';
end
Else
begin
Sort:= Column.fieldname+' DESC';
Column.Title.Caption:= Column.Title.Caption + '↓';
end;