unit1.~pas

本光盘是《Delphi 7应用教程》一书的配套光盘

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
var
  num:Array[1..10]of Integer; //定义全局数组变量

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  m:Integer;
  str:String;
begin
  Edit1.Text:='';         //清除编辑框的数据
  Edit2.Text:='';
  for m:=1 to 10 do
    begin
      str:=inputbox('请输入10个整数','请输入第'+IntToStr(m)+'个整数        ','0');
      num[m]:=StrToInt(str); //InputBox函数的返回值类型为字符串
    end;
  for m:=1 to 10 do
    Edit1.Text:=Edit1.Text+IntToStr(num[m])+',';//整数以逗号分隔
    Edit1.Text:=Copy(Edit1.Text,1,Length(Edit1.Text)-1);//去掉最后一个逗号
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i,j,k,n:Integer;
begin
  for i:=1 to 9 do
    begin
      k:=10-i;             //第i轮比较10-i次
      for j:=1 to k do
        begin
          if (num[j]>num[j+1]) then
            begin        //如果num[j]<num[j+1]就交换两数
              n:=num[j];
              num[j]:=num[j+1];
              num[j+1]:=n;
            end;
        end;
    end;
  for i:=1 to 10 do
    Edit2.Text:=Edit2.Text+FloatToStr(num[i])+',';
  Edit2.Text:=Copy(Edit2.Text,1,Length(Edit2.Text)-1);//去掉最后一个逗号
end;

end.