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

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

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.     Button1: TButton;
  18.     Label2: TLabel;
  19.     Edit6: TEdit;
  20.     Edit7: TEdit;
  21.     Edit8: TEdit;
  22.     Edit9: TEdit;
  23.     Edit10: TEdit;
  24.     procedure Button1Click(Sender: TObject);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  31. var
  32.   Form1: TForm1;
  34. implementation
  36. {$R *.dfm}
  38. procedure TForm1.Button1Click(Sender: TObject);
  39. var
  40. array1,array2:array[0..4] of Integer;
  41. max,i,j:integer;
  42. begin
  43.   array1[0]:= strtoint(edit1.Text);
  44.    array1[1]:= strtoint(edit2.Text);
  45.    array1[2]:= strtoint(edit3.Text);
  46.    array1[3]:= strtoint(edit4.Text);
  47.    array1[4]:= strtoint(edit5.Text);
  48.    begin
  49.      for i:=0 to Length(array1)-1 do
  51.         for j:=0 to Length(array1)-i-1 do
  53.           begin
  55.               max:=array1[j];
  56.               if max<array1[j+1] then
  58.                 max:=array1[j+1]
  60.           end;
  61.     array2[i]:=max;
  62.   end;
  65.    edit6.Text:=inttostr(array2[0]);
  66.    edit7.Text:=inttostr(array2[1]);
  67.    edit8.Text:=inttostr(array2[2]);
  68.    edit9.Text:=inttostr(array2[3]);
  69.    edit10.Text:=inttostr(array2[4]);
  74. end;
  76. end.