Delphi选择排序

最新推荐文章于 2025-02-05 08:31:17 发布

原创最新推荐文章于 2025-02-05 08:31:17 发布 · 265 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#Delphi

Delphi 专栏收录该内容

3 篇文章

订阅专栏

本文详细介绍了Delphi编程中如何实现选择排序算法，包括其工作原理、步骤及示例代码，帮助读者深入理解这一基础排序算法在Delphi环境下的应用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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;

function TForm1.SelectedSort(NumberArray:IntegerArray;Lens:Integer):IntegerArray;
var
  SortedNumberArray:IntegerArray;
  Count:Integer;
  I:Integer;
  J:Integer;
  Temp:Integer;
begin
  System.SetLength(SortedNumberArray,Lens);
  // Assgin array items value
  FOR Count:=0 TO Lens DO
  BEGIN
    SortedNumberArray:=NumberArray;
  END;

  FOR I:=0 TO Lens-1 DO
  BEGIN
     FOR J:=I+1 TO Lens-1 DO
     BEGIN
      IF SortedNumberArray[I]>SortedNumberArray[J] THEN
      BEGIN
         Temp:=SortedNumberArray[I];
         SortedNumberArray[I]:=SortedNumberArray[J];
         SortedNumberArray[J]:=Temp;
      END;
     END;
  END;
  RichEdit2.Text:=ToString(SortedNumberArray,Lens);
end;

procedure TForm1.Button2_Sort(Sender: TObject);
var
  Count:Integer;
begin
  System.SetLength(SortArray,NumberCount);
  FOR Count:=0 TO NumberCount-1 DO
  BEGIN
    SortArray[Count]:=StrToInt(RichEdit1.Lines[Count]);
  END;
  SelectedSort(SortArray,10);
end;

end.