(急!) array--Pascal Programming

用一個簡單既for loop就做到

假設呢個array係一維array，叫array01 :array[1..length]of string;　(length應該預先set好個數值)
可以咁做

for i:=1 to length do
　array[i]:='';　　　　(轉哂做null string)
(如果係integer就係array[i]:=0;，如果係char就係array[i]:=' ' )

如果係多維陣列就要用多層既for loop，每多一維(dimension)就用多一層
好似呢度咁：
(假設有三層，而個array係咁：array02:array[1..length]of string;)　　(length應該預先set好個數值)
for i:=1 to length do
　for j:=1 to length do
　　for k:=1 to length do
　　　array02[i][j][k]:='';

create array 的時候 length 是已知的
你只要用 for loop, loop晒每個 array 的 element
然後清空每一個 element 就可以了

e.g. integer array
for i = 1 to length do
intArray[i] = 0;

e.g. string array
for i = 1 to length do
strArray[i] = "";