博客

ArrayOfArray(9*9)

  • Post author:
  • Post category:其他


Pascal Code
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

unit


ArrayOfArray;



interface



uses



Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Grids;



type



TForm1 =


class


(TForm)

strngrd1: TStringGrid;



procedure


FormCreate(Sender: TObject);



private





{ Private declarations }





public





{ Public declarations }





end


;



var



Form1: TForm1;



implementation



{$R *.dfm}



procedure


TForm1.FormCreate(Sender: TObject);



var



x:


Integer


;

y:


Integer


;



begin





for


x :=


0




to


strngrd1.RowCount –


1




do





begin





for


y :=


0




to


strngrd1.ColCount –


1




do





begin



strngrd1.Cells[y,x] := IntToStr(x) +


‘*’


+ IntToStr(y)+


‘=’


+ IntToStr(y * x);



end


;



end


;



end


;



end


.

转载于:https://www.cnblogs.com/kivin/p/4646917.html