Динамическое изменение имени массивов

[ZvEr_HaCkEr]

Здравствуйте, положим у меня есть несколько равнозначных двухмерных массива, размер который зависит от некоего количества констант:

const
    H1 = 4;    W1 = 4;
    H2 = 5;    W2 = 5;
    H3 = 6;    W3 = 6;
var
Test1: array[1..H1, 1..W1] of byte;
Test2: array[1..H2, 1..W2] of byte;
Test3: array[1..H3, 1..W3] of byte;

И есть переменная, принимающая значение от 1 до 3, которая опирается на ряд соответствующих параметров(здесь они не важны, поэтому я их опущу).

Так вот, есть функция обрабатывающая данные массивы. Мне нужно, чтобы функция брала соответствующий массив в соответствию со значением переменной. То есть, если что-то равно чему-то, то пер.=1 и т.д и вставляла ее в ключевое имя массива:

..................................
if Test+(значение переменной от 1 до 3)[row,col] <> i then
..................................

Спасибо...

[Serge_Bliznykov]

так устроит?

const CntAllMas = 3;

const
  H : array[1..CntAllMas] of integer = (4,5,6);
  W : array[1..CntAllMas] of integer = (4,5,6);
var
  AllTests : array[1..CntAllMas] of array of array of byte;
....

var i : integer;
begin
  for i:=1 to CntAllMas do
    SetLength(AllTests[i], H[i], W[i]);
end;

Внимание. Важно! При таком подходе нумерация в массивах AllTests[i] будет от нуля!!!!

[ZvEr_HaCkEr]

Сообщение от Serge_Bliznykov

так устроит?

const CntAllMas = 3;

const
  H : array[1..CntAllMas] of integer = (4,5,6);
  W : array[1..CntAllMas] of integer = (4,5,6);
var
  AllTests : array[1..CntAllMas] of array of array of byte;
....

var i : integer;
begin
  for i:=1 to CntAllMas do
    SetLength(AllTests[i], H[i], W[i]);
end;

Внимание. Важно! При таком подходе нумерация в массивах AllTests[i] будет от нуля!!!!

Хм, не совсем понятно что к чему. Можно немного поподробнее?

P.S да и не понятно, как в данном коде соблюсти условие выборки. Простой пример:

var

j:integer;

procedure ololo;
begin
if Form1.N1.Checked = true then begin
    j:=1;
end;
if Form1.N2.Checked = true then begin
    j:=2;
end;
if Form1.N3.Checked = true then begin
    j:=3;
end;
end;

 function Fin: boolean;
var
    r,c: integer;
    i: integer;
begin
    ololo;
    r :=1; c :=1;
    Fin := True;
    for i:=1 to X{зависит от j} do
    begin
       if Test{здесь j}[r,c] <> i then
       begin
            Fin:= False;
            break;
       end;
       if c < Y{зависит от j}
          then inc(c)
       else begin
          c:=1;
          inc(r);
       end;
    end;
end;

Как быть тут?

[Serge_Bliznykov]

Как быть тут?

не зная, что и как заполняется в Test и для чего вообще функция Fin, просто повторяя то, что у Вас написано, код можно попробовать переписать так:

function Fin: boolean;
var
    r,c,i: integer;
begin
    ololo;
    Fin := True;
    i:=1;
    for r:=1 to H[j] do
      for c:=1 to W[j] do begin
         if  AllTests[i][r-1,c-1] <> i then
         begin
            Fin:= False;
            Exit;
         end;
         inc(i);
      end;
end;