Please Run Debugger on this code :
Code: Select all
program test;
var value : word;
i,j : byte;
const NUMBERS :array[4] of array[4] of word =
((0, 1000, 2000, 3000),
(4000, 5000, 6000, 7000),
(8000, 9000, 10000, 11000),
(12000, 13000, 14000, 15000)
);
begin
for i := 0 to 3 do
begin
for j := 0 to 3 do
begin
value := NUMBERS[i][j];
end;
end;
end.
Regards, Florin Medrea.