многомерный не квадартный массив-константа

[Izhic]

Как задать массив-константу вроде этого:
(
(2=>(1,7,8))
(1=>(1,2,3,4))
)

Это

type

Cube = array[0..1,0..1,0..1] of integer;
const
Maze: Cube = (((0,1),(2,3)),((4,5),(6,7)));

Другое... Здесь одинаковая размерность всегда...



Вероятно может через @ как-то ещё, или record...?

[Stilet]

Через Variant.
Прям из хелпа:

var

  A: Variant;
begin
  A := VarArrayCreate([0, 4], varVariant);
  A[0] := 1;
  A[1] := 1234.5678;
  A[2] := 'Hello world';
  A[3] := True;
  A[4] := VarArrayOf([1, 10, 100, 1000]);
  WriteLn(A[2]);	{ Hello world }
  WriteLn(A[4][2]);	{ 100 }

end;

Смысл ясен?

[Izhic]

Stilet , спасибо
Если работает хорошо.
Сейчас посмотрю.

Я сделал только что вот это:

type
a=array of string;
const

fwef1:array[0..1]of string=('2','2');
fwef2:array[0..2]of string=( '2','2','2');
fwe: array[0..1]of a=(@fwef1,@fwef2);

Но так делает fwef1 и fwef2 размером по 65500, 4237422 соответственно...
Да, ясен.
.............
Добавлено:
Я хотел бы не в теле программы, как сказано выше - константа....

Это конечно жёстко....
Но получилось вот что:

type
 a=array of string;
 t=record
  aa:a;
  length:Integer;
 end;
const
fwef1:array[0..1]of string=('1','2');
fwef2:array[0..2]of string=( '3','4','5');

ss1:t=(aa:@fwef1;length:2);
ss2:t=(aa:@fwef2;length:3);

fwe: array[0..1]of ^t=(@ss1,@ss2);

var
i:integer;j:integer;
begin
   for i:=0 to length(fwe)-1 do
   begin

    for j:=0 to fwe[i]^.Length-1 do
       write(fwe[i]^.aa[j]);
       writeln;
     end;

   readln;
..............
..............
..............
end.

Если можно проще.... это хорошо
Проще думаю будет если убрать длину, но тогда, что я напутал с указателями, что у них неверную длину возвращает,
если сделать как в #3?
begin
length(fwe[i])//== неверная длинна
end

From Stilet: код оформляй по кнопке # если это не PHP

[Stilet]

как сказано выше - константа....

Что-то такое есть но насколько я знаю такой способ очень непопулярен...

Это конечно жёстко....

Думаю ты и сам не рад этакому...