‘排序’，急用，帮个忙

Question

怎样对ClientDateSet进行排序？

Answer 1

procedure P_SetIndex(var mcds: TClientDataSet; const mOldIndexName,
  mNewIndexName: string);
//说明:用于设置新索引;
//参数:
//  mcds:是要排序的TClientDataSet,
//  mOldIndexName: mcds的原有索引名称，
//  mNewIndexName: mcds将要设置的新索引名称
begin
  if mcds.IndexName = Trim(mOldIndexName) then                 // 重新排序
    mcds.DeleteIndex(mOldIndexName);
  mcds.AddIndex(mNewIndexName, mNewIndexName, [], '', '', 0);
  mcds.IndexName := mNewIndexName;
end;