Code: Select all
FldName := FDataSet.FieldDefs[ADataCol].DisplayName;
FldName := AnsiQuotedStr(FldName, '"'); // No longer allowed?
case ASortDir of
sdAsc: SortString := FldName + ' ASC CIS';
sdDesc: SortString := FldName + ' DESC CIS';
end;
FDataSet.IndexFieldNames := SortString;
Benthic Software