一:使用靜態數組應該注意的問題:
1:char靜態數組用在全局變量和局部變量中的區別。
您可以編寫如下簡單的測試,此時
procedure TForm1.Button1Click(Sender: TObject);
var
ArrayChar:array[1..100] of char;
begin
{point1} ArrayChar[1]:='a';
{point2} ArrayChar[100]:='6';
end;
你可以在point1處設置斷點,使用鼠標觀察,運行到該處之前Delphi 為
數組ArrayChar分配內存的情況,可以看到,Delphi在開始分配數組時,
並不為所有的元素置空,應該是隨機分配值的,如果試圖進行這樣的操作,
你如果不理解這一點,在進行某些操作時就可能會感到很迷茫:例如
procedure TForm1.Button1Click(Sender: TObject);
var
ag :array[1..100] of char;
i:integer;
begin
ArrayChar[1]:='a';
ArrayChar[99]:='6';
for i:= low(ArrayChar) to high(ArrayChar) do
if ag[i]='6' then
showmessage(inttostr(i));
end;
你希望能夠找到的i 的值是 99 ,但是有可能就會得到的是錯誤的值,我
進行了小小的測試,我此時得到的值是 64,94,最後才是99,如果稍加修改,如下:
procedure TForm1.Button1Click(Sender: TObject);
var
ArrayChar:array[1..100] of char;
i:integer;
j:integer;
begin
for j:=low(ArrayChar) to high(ArrayChar) do
ArrayChar[j]:=#0;
ArrayChar[1]:='a';
ArrayChar[99]:='6';
for i:= low(ArrayChar) to high(ArrayChar) do
if ArrayChar[i]='6' then
showMessage(inttostr(i));
end;
這時,就不會出現先前的情況了,如果你仔細仍然可以使用同樣的方法觀察動態數組,會發現其實
動態數組在開始初始化時,是已經將所有的值都置空的。如果是整形的靜態數組的話,應該設置值為0,
而不是#0。
不過以上的情況是靜態數組是局部變量,你可以試著把它放到程序的前面,使它成為一個全局變量,你可以
再進行觀察,可以發現這是,Delphi已經把所有元素自動置空,這種情況下,你就不需要考慮靜態數組的
初始化問題了。
對於字符串數組,兩種情況下,初始化時都已經清空了,不需要你去做初始化工作
二:關於動態數組的越界問題如下:
procedure TForm1.Button1Click(Sender: TObject);
var
ArrayDy:array of char;
begin
setlength(ArrayDy,100);
ArrayDy[0]:='a';
ArrayDy[1]:='b';
ArrayDy[99]:='c';
ArrayDy[100]:='d';//error! 越界
ArrayDy[101]:='e'; //error!越界
showmessage(ArrayDy[101])
end;
這是雖然數組ArrayDy[100],ArrayDy[101]都已經越界,但是程序卻照常運行。要能夠讓Delphi能夠做出
提示,可以打開:Project OptionscomplIEr ange checking開關。