Delphi选择排序

unit BubbleSortForm;

interface

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

type
  IntegerArray=array of Integer;

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    Button2: TButton;
    Function ToString(NumberArray:IntegerArray;Lens:Integer):String;
  private
    { Private declarations }
    Function SelectedSort(NumberArray:IntegerArray;Lens:Integer):IntegerArray; 
  public
    { Public declarations }
    procedure Button2_Sort(Sender: TObject);
  end;

var
  Form1: TForm1;
  NumberCount:Integer;
  {SortArray:array of Integer;}
  SortArray:IntegerArray;
implementation

{$R *.dfm}

function TForm1.ToString(NumberArray:IntegerArray;Lens:Integer):String;
var
  Count:Integer;
  Str:String;
begin
   Str:='';
   FOR Count:=0 TO lens-1 DO
   BEGIN
    Str:=Str+IntToStr(NumberArray[Count]);
   END;
   Result:=Str;
end;

fun