Delphi5实现冒泡排序

效果图

截取输入框文本

//将输入框的数字文本截取出来，用数组装好
temp:='';
str:=Trim(edt1.Text);
i:=1;
n:=1;
while(i<Length(str)+1) do  //遍历输入框的文本
begin
  while(str[i]<>#32)and(str[i]<>#0)do //遍历文本的每一个数字串
  begin
    temp:=temp+str[i];    //用来装数字串
    i:=i+1;
  end;

  str_arr[n]:=strtoint(temp);
  i:=i+1;
  n:=n+1;  //有n个单词，后面用n来遍历数组
  temp:=''; //置空，重新装新的数字串
end;

冒泡排序

//将数组的数字进行冒泡排序，然后输出
for j:=1 to n-1 do
begin
  for k:=1 to n-1-j do
  begin
    if (str_arr[k] > str_arr[k+1])  then  //如果左边大于右边，交换
    begin
      a:=str_arr[k];
      str_arr[k]:=str_arr[k+1];
      str_arr[k+1]:=a;
    end;
   end;
end;

输出数组

//将排序好的数组输出
edt1.Text:='';
for j:=1 to n-1 do
begin
  edt1.Text:=edt1.Text+inttostr(str_arr[j])+' ';
end;

调试

这次学会了用调试工具，观察各个变量。

打断点

打开local variables

在“view”——“debug Windows”——“local variables”

逐步追踪

按“F7”

完整代码

unit maopao_sort;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Dialogs, Forms,Form, Formprpt, StdCtrls;

type
  TForm1 = class(MForm)
    edt1: TEdit;
    btn1: TButton;
    lbl1: TLabel;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.btn1Click(Sender: TObject);
var
  str,temp:string;
  i,n,j,k,a:Integer;
  str_arr:array[1..20] of integer;  //静态数组

begin
  //将输入框的数字文本截取出来，用数组装好
  temp:='';
  str:=Trim(edt1.Text);
  i:=1;
  n:=1;
  while(i<Length(str)+1) do  //遍历输入框的文本
  begin
    while(str[i]<>#32)and(str[i]<>#0)do //遍历文本的每一个数字串
    begin
      temp:=temp+str[i];    //用来装数字串
      i:=i+1;
    end;

    str_arr[n]:=strtoint(temp);
    i:=i+1;
    n:=n+1;  //有n个单词，后面用n来遍历数组
    temp:=''; //置空，重新装新的数字串
  end;

  //将数组的数字进行冒泡排序，然后输出
  for j:=1 to n-1 do
  begin
    for k:=1 to n-1-j do
    begin
      if (str_arr[k] > str_arr[k+1])  then  //如果左边大于右边，交换
      begin
        a:=str_arr[k];
        str_arr[k]:=str_arr[k+1];
        str_arr[k+1]:=a;
      end;
     end;
  end;

  //将排序好的数组输出
  edt1.Text:='';
  for j:=1 to n-1 do
  begin
    edt1.Text:=edt1.Text+inttostr(str_arr[j])+' ';
  end;
end;
end.