Deilphi 冒泡排序

代码如下： 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button2: TButton;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
var
    Ran_num:Array[1..10] of Integer;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
    i:Integer;
    max,max_i:Integer;
begin
    Randomize;
    Edit1.Text:='';
    Edit2.Text:='';
    Edit3.Text:='';
    Edit4.Text:='';

    Edit1.ReadOnly:=True; //只能读，不能写
    Edit2.ReadOnly:=True;
    Edit3.ReadOnly:=True;
    Edit4.ReadOnly:=True;

    for i:= 1 to 10 do
    begin
       Ran_num[i]:=Random(90);
       Edit1.Text:=Edit1.Text+inttostr(Ran_num[i])+','//如何输出数组
    end;
    Edit1.Text:=Copy(Edit1.Text,1,Length(Edit1.Text)-1); //去掉最后一个符号
    //数据进行筛选最大值及其下标
    max:=Ran_num[1];
    max_i:=1;
    for i:=2 to 10 do
    begin
       if (max < Ran_num[i]) then
       begin
           max:=Ran_num[i];
           max_i:=i;
       end;
    end;

    Edit2.Text:=inttostr(max);
    Edit3.Text:=inttostr(max_i);

end;

procedure TForm1.Button2Click(Sender: TObject);
var
    i,temp,j:Integer;
begin
   temp:=0;
   for i:=1 to 10 do
     for j:=i+1 to 10 do//冒泡排序
         if  Ran_num[i]<Ran_num[j]  then
                begin  //复合语句用到begin 和end
                temp:=Ran_num[i];
                Ran_num[i]:=Ran_num[j];
                Ran_num[j]:=temp;

                end;
   for i:= 1 to 10 do
   begin
       Edit4.Text:=Edit4.Text+inttostr(Ran_num[i])+','
   end;
   Edit4.Text:=Copy(Edit4.Text,1,Length(Edit4.Text)-1);
end;

end.

 运行结果如下：