412应用(1) 接下来利用数组来解决排序的问题。 【例4-1】对20个数进行排序(由大到小)。 1.主要步骤 进入 Delphi7.0后,按图4-1设计窗体及有关对象 ③定义一个全局数组变量,语句为: var A: Array[1.20]of Integer; 分别在两个按钮的单击和窗体的建立事件中输入 如下代码: procedure THorn1. Button1cick( Sender;: Tobject);H)生随机数 Var i: Integer; S, t: String; 图4-1静态数 begin 组 Randomize: for i: =LOW(A)to High (a)do begin Inprise Dephi4.1.2 应用(1) 接下来利用数组来解决排序的问题。 【例4-1】 对20个数进行排序（由大到小）。 1. 主要步骤  进入Delphi7.0后，按图4-1设计窗体及有关对象。  定义一个全局数组变量，语句为： var A:Array[1..20]of Integer; 图4-1 静态数 组 分别在两个按钮的单击和窗体的建立事件中输入 如下代码： procedure TForm1.Button1Click(Sender: TObject); //产生随机数 Var i:Integer; s,t:String; begin Randomize; s:=''; for i:=Low(A) to High(A) do begin