关于数组的认识02 - 零基础入门学习Delphi 016

冬雪雪冬

二维数组
定义1：
Type
  数组类型名=Array[下标类型1, 下标类型2] of 基类型;
定义2：
Type
  数组类型名=Array[下标类型1] of Array[下标类型2] of 基类型;
例题：学生小红和小明输入他们语数外成绩，算出总分。

使用新控件StringGrid来输入和显示表格式的数据。
放置StringGrid，并设置行列数（RowCount，ColCount），将Options的goEditing设为True，这样就可以键入数据了，form的Autosize设为True，这样窗口的大小就与StringGrid一致了，但StringGrid四周没有留白，因此先放置一个Panel，把StringGrid放到Panel中，并把Panel调整的略大。把Button放置在StringGrid的0，0格位置，并调整大小位置，使之像一个栅格。
在课后练习中，小甲鱼要大家设置StringGrid的颜色，这个Color和FixedColor很容易做到，但文字居中却做不到了，至少用SetWindowLong是无法实现的。
主要程序：

1. var
   
2.   Form1: TForm1;
   
3.   name: Array[0..1] of String;
   
4.   course: Array[0..2] of String;
   
5. 
   
6. 
   
7. implementation
   
8. 
   
9. {$R *.dfm}
   
10. 
    
11. procedure TForm1.FormCreate(Sender: TObject);
    
12. 
    
13. begin
    
14.   //SetWindowLong(StringGrid1.Handle, GWL_STYLE, GetWindowLong(StringGrid1.Handle, GWL_STYLE) or ES_CENTER);
    
15.   //StringGrid1.refresh;
    
16.   inputbox(
    
17.   StringGrid1.Cells[0, 1] := '小明';
    
18.   StringGrid1.Cells[0, 2] := '小红';
    
19.   StringGrid1.Cells[1, 0] := '语文';
    
20.   StringGrid1.Cells[2, 0] := '数学';
    
21.   StringGrid1.Cells[3, 0] := '英语';
    
22.   StringGrid1.Cells[4, 0] := '总成绩';
    
23. 
    
24. end;
    
25. 
    
26. procedure TForm1.Button1Click(Sender: TObject);
    
27. var
    
28.   i, j: Integer;
    
29.   result: Array[1..2] of Integer;
    
30. begin
    
31.   result[1]:= 0;
    
32.   result[2]:= 0;
    
33.   for i:= 1 to 2 do
    
34.     for j:= 1 to 3 do
    
35.       result[i]:= result[i] + StrToInt(StringGrid1.cells[j, i]);
    
36.   StringGrid1.cells[4, 1]:= IntToStr(Result[1]);
    
37.   StringGrid1.cells[4, 2]:= IntToStr(Result[2]);
    
38. 
    
39. 
    
40. 
    
41. end;
    

复制代码

13328593595