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
var
  arr:Array[1..3,1..5]of Integer;   //全局数组变量
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  m,n:Integer;
begin
  Form1.Canvas.FillRect(Form1.ClientRect);//删除矩阵
  for m:=1 to 3 do
    begin
      for n:=1 to 5 do
        arr[m,n]:=trunc(100*random);//随机生成100以内的矩阵元素
    end;
  for m:=1 to 3 do
    begin
      for n:=1 to 5 do
        Form1.Canvas.TextOut(15+28*(n-1),77+20*(m-1),IntToStr(arr[m,n]));
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  m,n:Integer;
  ReArr:Array[1..5,1..3]of Integer; //局部数组变量
begin
  for m:=1 to 5 do
    begin
      for n:=1 to 3 do
        ReArr[m,n]:=arr[n,m]; //实现矩阵转置
    end;
  for m:=1 to 5 do
    begin
      for n:=1 to 3 do
        Form1.Canvas.TextOut(165+28*(n-1),50+20*(m-1),IntToStr(ReArr[m,n]));
    end;
end;

end.