TStringList 的Sorted属性

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;