Delphi面向对象的编程方法（四）

type

TCheck = array[1..10] of Double;

则变量说明改为：

var

Check :TCheck;　

您可以通过给数组赋值等方法来使用数组。下面的语句将0.0赋给Check数组中的所有元素：　

for J := 1 to 10 do

Check[J] := 0.0;

数组也可以是多维的，下面的类型定义了一个20行、20列的数组。

type

Ttable = array[1..20,1..20] of Double;

var

table1:TTable;　

想将这一表格的所有数据初始化为0.0，您可以使用for循环：　

var

Col,Row:Integer;

…

for Col :=1 to 20 do

for Row := 1 to 20 do

Table1[Col,Row] := 0.0;　

上一篇： Delphi面向对象的编程方法（五）
下一篇： Delphi面向对象的编程方法（六）

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!