Delphi- Dynamic Arrays 高手請指點。。

frankyhui

<div class="blockcode"><span class="headactions" onclick="copycode($('code0'));">複製內容到剪貼板</span><h5>代碼:</h5><code id="code0">var
BArray : Array[0..2, 0..4] of Integer;
X : Integer;

begin
SetLength(BArray, 2, 1);

BArray[1, 0] := -200;
BArray[1, 1] := -100;
BArray[2, 1] := 0;
BArray[0, 3] := 100;
BArray[0, 4] := 200;
X := BArray [1, 1] + BArray[0, 3];
Label1.Caption := IntToStr(X);

end;</code>