比较字符串的大小

[beil0eve]

a1,a2,a3...a10：integer;
怎么比较这10个变量的大小并自动排序？
比如 a1=30;
a2=33
a3=503
.
.
.
a9=21
a10=5;
按赋值的大小自动排序

[doloopcn]

这么多人跟贴？？？？都以为自己进错版块了。。。。。。

procedure TForm1.Button1Click(Sender: TObject);
var
a1,a2,a3,a4,a5:Integer;
aa:array [0..4] of Pint;
i,j:Integer;
procedure BubbleSort(b:array of Pint);
var
i,j,p:Integer;
t:Pint;
a:array of Integer;
begin
SetLength(a,Length(b));
for i:=Low(B) to High(B) do
a[i]:=b[i]^;
for i:=Low(A) to High(A)-1 do
for j:=i+1 to High(A) do
if a[i]>a[j] then
begin
p:=a[i];
a[i]:=a[j];
a[j]:=p;
end;
for i:=Low(B) to High(B) do
b[i]^:=a[i];

end;
begin
a1:=20;
a2:=40;
a3:=10;
a4:=50;
a5:=30;
Memo1.Lines.Clear;
Memo1.Lines.Add(Format('Befroe Value:A1 = %d, A2 = %d, A3 = %d, A4 = %d, A5 = %d',[a1,a2,a3,a4,a5]));
BubbleSort([@a1,@a2,@a3,@a4,@a5]);
Memo1.Lines.Add(Format('After Value:A1 = %d, A2 = %d, A3 = %d, A4 = %d, A5 = %d',[a1,a2,a3,a4,a5]));
end;

[doloopcn]

楼主的需求应该就是变量地址不变，变量值排序

[日立奔腾浪潮微软松下联想]

这样声明：
procedure BubbleSort(b:array of Pint);
会产生复制数组
改成：
procedure BubbleSort(const b:array of Pint);
就可以直接排序了

[LXL110306]

直接用Map不可以吗?
map<int,string> key存变量的值,string存变量名....

[weixin_43701752]

冒泡排序法噢

[Fdm_csdn]

学习了，谢谢！

[sinat_27672373]

用arraylist，直接sort即可

[xiaoxiangqing]

可以自己写，也可以用库里自带的

[彩鸽咕咕咕]

变成int型在比较？？？
int a1＝a1-‘0’；

[if_i_were_a]

用，treemap自动排序，楼主可以试一下

[lyhoo163]

[qq_38894398]

数据结构中那么多实现方法，建议自行查阅书籍
，

[宋_小_梦]

这很简单呀，如果数是唯一的就用集合TreeSet，如果不唯一就用ArrayList，传进去，Integer，用迭代器Iterator遍历比较，里面差不多也就是个简单的冒泡法

[未小伤]

放进treeSet里

[治政]

进来学习一下。

[「已注销」]

数组，for循环

[无敌的黑星星]

把这几个数添加到treehasp然后遍历输出

[SaibeiStar]

这是涉及数据结构了吧，就那几个算法，学校都学过的

[一扁舟]

库函数里面qsort可以解决

[huang714]

procedure TForm12.Button1Click(Sender: TObject);
var
aa: Array [0 .. 3] Of integer;
i: integer;
a0,a1,a2,a3:Integer;
begin
aa[0] := 30;
a0:=30;
aa[1] := 33;
a1:=33;
aa[2] := 503;
a2:=503;
aa[3] := 21;
a3:=21;

Sort(aa);
for i := 0 to high(aa) do
begin
if aa[i] = a0 then
Memo1.Lines.Add('a0='+inttostr(aa[i]));
if aa[i] = a1 then
Memo1.Lines.Add('a1='+inttostr(aa[i]));
if aa[i] = a2 then
Memo1.Lines.Add('a2='+inttostr(aa[i]));
if aa[i] = a3 then
Memo1.Lines.Add('a3='+inttostr(aa[i]));
end;
end;

procedure TForm12.Sort(var x: array of integer);
var
i, j, l: integer;
begin
for i := 0 to high(x) do
begin
for j := 0 to high(x) - 1 do
begin
if x[j] > x[j + 1] then
begin
l := x[j];
x[j] := x[j + 1];
x[j + 1] := l;
end;
end;
end;
end;

结果如下：
a3=21
a0=30
a1=33
a2=503