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。