程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 使用靜態數組應該注意的問題

使用靜態數組應該注意的問題

編輯:Delphi

  一:使用靜態數組應該注意的問題:

   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開關。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved