Delphi直接插入法排序示例

Delphi直接插入法排序示例，將一數組按插入法排序的方法進行有序排列，可視化操作窗口，如下圖所示，點擊“排序”按鈕即可實現排序功能。

Delphi插入法排序代碼如下：

vIEw source print? 01 unit Unit1; 02 interface 03 uses 04   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 05   Dialogs, StdCtrls; 06 type 07   TForm1 = class(TForm) 08     Button1: TButton; 09     ListBox1: TListBox; 10     procedure Button1Click(Sender: TObject); 11     procedure FormShow(Sender: TObject); 12   private 13   procedure compositor(var L:array of integer); 14     { Private declarations } 15   public 16     { Public declarations } 17   end; 18 var 19   Form1: TForm1; 20   a:Array[0..10] of integer; 21   s1,s2:string; 22 implementation 23 {$R *.dfm} 24 { TForm1 } 25 procedure TForm1.compositor(var L: array of integer); 26 var 27 i,j:integer; 28 v:integer; 29 begin 30   for i:=low(L)+1 to high(L) do 31     begin 32       v:=L[i]; 33       j:=i; 34       while (j<>low(L))and(L[j-1]<v) do//循環找到插入點 35       begin 36         L[j]:=L[j-1];//移動元素 37         j:=j-1; 38       end; 39       L[j]:=v;//插入元素 40     end; 41 end; 42 procedure TForm1.Button1Click(Sender: TObject); 43 var 44   i:integer; 45 begin 46   ListBox1.Items.Clear; 47   ListBox1.Items.Add('沒有排序的數組：'); 48   ListBox1.Items.Add(s1); 49   ListBox1.Items.Add('排序後的數組：'); 50   compositor(a); 51   s2:=''; 52   for i:=0 to 10 do 53   begin 54     s2:=s2+IntToStr(a[i])+','; 55   end; 56    ListBox1.Items.Add(s2); 57 end; 58 procedure TForm1.FormShow(Sender: TObject); 59 var 60   i:Integer; 61 begin 62   s1:=''; 63   for i:=0 to 10 do 64   begin 65     a[i]:=i*2+random(20)-5; 66     s1:=s1+IntToStr(a[i])+','; 67   end; 68   ListBox1.Items.Add('沒有排序的數組：'); 69   ListBox1.Items.Add(s1); 70 end; 71 end.