Inicializar arrays multidimensionales

[roman]

Empezado por Lepe

Delphi dice: "Cannot initialize local variable", por tanto, debe ser una variable global (de interface o implementation) para poder inicializarla.

Puede intentarse algo "local" así:

Código Delphi [-]
{$writeableconst on}
procedure Algo;
const
  x: array [0..4,0..2] of Integer=
  ( (1, 2 , 3),
    (5, 5, 5),
    (1, 2 , 3),
    (1, 2 , 3),
    (1, 2 , 3)
  );

begin
  x[0,0] := 84;
end;
{$writeableconst off}

// Saludos