delphi怎样将一个字符数组从小到大排列?[

Posted 2023-04-26

放入 TStringList 排序

一种简单的方法：
Procedure TForm1.BitBtn1Click(Sender: TObject);
Var
alist: TStringList;
Begin
alist := TStringList.Create;
Try
alist.Add(\'AAA\');
alist.Add(\'BBB\');
alist.Add(\'CCC\');
alist.Add(\'EEE\');
alist.Add(\'DDD\');
Application.MessageBox(PChar(alist.Text), \'排序前\' ,64);
alist.Sort;
Application.MessageBox(PChar(alist.Text), \'排序后\' ,64);
Finally
alist.Clear;
alist.Free;
End;
End; 参考技术A 是不是对字符数组内的字符进行对比？
这里用冒泡排序法
假设这个数组是 str1
var
a1,a2:char;
i,j:intger;
begin
for i:=1 to length(str1)-1 do
begin
fro j:=1 to length(str1)-i do
begin
a1:=str1[j];
a2:=str1[j+1];
if a1>a2 then
begin
str1[j]:=a2;
str1[j+1]=a1;
end;
end;
end;
end;

31. 下一个排列

1.Description

整数数组的一个 排列  就是将其所有成员以序列或线性顺序排列。

例如，arr = [1,2,3] ，以下这些都可以视作 arr 的排列：[1,2,3]、[1,3,2]、[3,1,2]、[2,3,1] 。
整数数组的 下一个排列 是指其整数的下一个字典序更大的排列。更正式地，如果数组的所有排列根据其字典顺序从小到大排列在一个容器中，那么数组的 下一个排列 就是在这个有序容器中排在它后面的那个排列。如果不存在下一个更大的排列，那么这个数组必须重排为字典序最小的排列（即，其元素按升序排列）。

例如，arr = [1,2,3] 的下一个排列是 [1,3,2] 。
类似地，arr = [2,3,1] 的下一个排列是 [3,1,2] 。
而 arr = [3,2,1] 的下一个排列是 [1,2,3] ，因为 [3,2,1] 不存在一个字典序更大的排列。
给你一个整数数组 nums ，找出 nums 的下一个排列。

必须 原地 修改，只允许使用额外常数空间。

2.Example

示例 1：

输入：nums = [1,2,3]
输出：[1,3,2]
示例 2：

输入：nums = [3,2,1]
输出：[1,2,3]
示例 3：

输入：nums = [1,1,5]
输出：[1,5,1]

3.Code

思路：从后往前找到一个顺序对（i,j），进行对换，右侧的大数尽可能的小，最后别忘了翻转[i+1,n)

力扣https://leetcode-cn.com/problems/next-permutation/solution/xia-yi-ge-pai-lie-by-leetcode-solution/

class Solution 
public:
    void nextPermutation(vector<int>& nums) 
        int n = nums.size()-1;
        while(n>0 && nums[n]<= nums[n-1])
            n--;
        int i = n-1;
        if(i >=0)
            n = nums.size()-1;
            while(n > i && nums[n] <= nums[i])
                n--;
            int j= n;
            swap(nums[i],nums[j]);
        
        reverse(nums.begin()+i+1,nums.end());
    
;

4.注意

 这个其实就是c++函数next_permutation的实现

class Solution 
public:
    void nextPermutation(vector<int>& nums) 
        next_permutation(nums.begin(), nums.end());
    
;