unit1.pas

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

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  R_Arr:Array of Integer; //定义一维动态数组，注意下标是从零开始
  k:Integer;
begin
  Canvas.FillRect(Form1.ClientRect);//清除先前生成的数组元素 
  SetLength(R_Arr,Trunc(1+9*Random));//一维数组行的长度为1-9
  for k:=Low(R_Arr) to High(R_Arr) do
    begin
      R_Arr[k]:=Trunc(100*Random); //数组元素为0-99
      Canvas.TextOut(24*(k+1),30,IntToStr(R_Arr[k]));//指定位置显示数组
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  R_Arr:Array of Array of Integer;//定义二维动态数组，注意下标从零开始
  m,n:Integer;
begin
  Canvas.FillRect(Form1.ClientRect);//清除先前生成的数组
  SetLength(R_Arr,2);//动态数组行数为2，每行的长度还没有固定
  SetLength(R_Arr[0],Trunc(1+9*Random));//第0行长度为1-9
  SetLength(R_Arr[1],Trunc(1+9*Random));//第1行长度为1-9
  for m:=0 to 1 do
    for n:=Low(R_Arr[m]) to High(R_Arr[m]) do
      begin
        R_Arr[m,n]:=Trunc(100*Random); //生成0-99的元素
        Canvas.TextOut(24*(n+1),30+30*m,IntToStr(R_Arr[m,n]));
      end;
end;

end.