TStringList 的Sorted属性

1 、设置 sorted := true;

2、添加数据

add('3');add('4');add('1');

showmessage(commatext);// 1,3,4

3、再修改Sorted属性 为 false ，前面已经添加的数据 不会恢复为添加时的顺序341

添加新数据 add('5');

4、showmessage(commatext);//1345

procedure TStringList.SetSorted(Value: Boolean);



begin

if FSorted <> Value then

begin

if Value then Sort;  //修改sorted属性时，只有 新值是 true时 才会排序；新值是 false时，不会排序

FSorted := Value;

end;

end;

procedure TStringList.Sort;

begin

  CustomSort(StringListCompareStrings);

end;



procedure TStringList.CustomSort(Compare: TStringListSortCompare);

begin

  if not Sorted and (FCount > 1) then//sorted是false时 才会排序

  begin

    Changing;

    QuickSort(0, FCount - 1, Compare);

    Changed;

  end;

end;