开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
Unit1.pas
资源名称：xiaobai.rar　[点击查看]
上传用户：autowell
上传日期：2022-06-21
资源大小：16754k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

Unit1.pas：源码内容
  1. unit Unit1;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     Label1: TLabel;
  12.     Edit1: TEdit;
  13.     Edit2: TEdit;
  14.     Edit3: TEdit;
  15.     Edit4: TEdit;
  16.     Edit5: TEdit;
  17.     Edit6: TEdit;
  18.     Edit7: TEdit;
  19.     Edit8: TEdit;
  20.     Edit9: TEdit;
  21.     Edit10: TEdit;
  22.     Edit11: TEdit;
  23.     Edit12: TEdit;
  24.     Button1: TButton;
  25.     procedure Button1Click(Sender: TObject);
  26.   private
  27.     { Private declarations }
  28.   public
  29.     { Public declarations }
  30.   end;
  32. var
  33.   Form1: TForm1;
  35. implementation
  37. {$R *.dfm}
  39. procedure TForm1.Button1Click(Sender: TObject);
  40. var
  41.     MyArray:array[0..5] of Integer;
  42.     i,j,k:Integer;
  43. begin
  44.     MyArray[0]:=strtoint(edit1.Text);
  45.     MyArray[1]:=strtoint(edit2.Text);
  46.     MyArray[2]:=strtoint(edit3.Text);
  47.     MyArray[3]:=strtoint(edit4.Text);
  48.     MyArray[4]:=strtoint(edit5.Text);
  49.     MyArray[5]:=strtoint(edit6.Text);
  50.     begin
  51.         for i:=0 to  Length(MyArray)-1 do
  52.           begin
  53.               for j:=0 to Length(MyArray)-i-1 do
  54.                 begin
  55.                   if MyArray[j] >MyArray[j+1] then
  56.                     begin
  57.                         k:=MyArray[j];
  58.                         MyArray[j]:=MyArray[j+1];
  59.                         MyArray[j+1]:=k;
  60.                     end;
  61.                 end;
  62.           end;
  63.          edit7.Text:=inttostr(MyArray[0]);
  64.          edit8.Text:=inttostr(MyArray[1]);
  65.          edit9.Text:=inttostr(MyArray[2]);
  66.          edit10.Text:=inttostr(MyArray[3]);
  67.          edit11.Text:=inttostr(MyArray[4]);
  68.          edit12.Text:=inttostr(MyArray[5]);
  69.     end;
  70. end;
  72. end.