DELPHI7插入排序

插入排序（英语：Insertion Sort）是一种简单直观的排序算法。它的工作原理是通过构建有序序列，对于未排序数据，在已排序序列中从后向前扫描，找到相应位置并插入。插入排序在实现上，通常采用in-place排序（即只需用到 {\displaystyle O(1)} {\displaystyle O(1)}的额外空间的排序），因而在从后向前扫描过程中，需要反复把已排序元素逐步向后挪位，为最新元素提供插入空间。
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Memo1: TMemo;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
function insertion_sort(var arr : array of integer):Integer;
var
i,j,temp,len:Integer;
begin
//ShowMessage(IntToStr(high(arr)));
len:=Length(arr);
for i:=0 to len-1 do
begin
temp:=arr[i];

j:=i;
while (j<>low(arr))and(arr[j-1]<temp) do//循环找到插入点
begin
  arr[j]:=arr[j-1];
  j:=j-1;//必须加此行，否则会无限循环
end;
arr[j] := temp;

end;
result:=0;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
//MyArr:array[0…9] of Integer = (10,5,2,8,9,1,3,6,7,4);
//这样做是错的，不能初始化静态变量

MyArr:array[0…9] of Integer;
i:Integer;
begin
MyArr[0]:=10;
MyArr[1]:=5;
MyArr[2]:=2;
MyArr[3]:=8;
MyArr[4]:=9;
MyArr[5]:=1;
MyArr[6]:=3;
MyArr[7]:=6;
MyArr[8]:=7;
MyArr[9]:=4;

insertion_sort(MyArr);
for i:=0 to Length(MyArr) -1 do
begin
Edit1.Text:=Edit1.Text + IntToStr(MyArr[i]) + ‘,’;
end;
end;

end.