Inicializar arrays multidimensionales

[Wellnic]

OK, gracias. Esa debió de ser la única combinación que no había probado... Teengggo lla ccabecha... ())( )(())

[[Lepe]]

A ver si soy capaz de desliar este desaguisado.

En principio puse que si "x" es una variable global, no se podía inicializar y envié el mensaje al foro. Me quedé pensando y dije... no... Delphi no deja inicializar el array dentro de un procedimiento, lo verifiqué, edité mi mensaje y lo corregí.

(eso de "recordar vagamente" lo dejé como broma)

Obviamente Neftali había respondido al mensaje original y mi edición fue posterior.

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

El tema de filas y columnas... cierto, estoy con un StringGrid liado y ya no sé ni quien soy yo .

Saludos

[[Delphius]]

Empezado por Lepe

Obviamente Neftali había respondido al mensaje original y mi edición fue posterior.

¿Ummm?
Lepe, creo que deberías tomarte un pequeño descanso.
No veo que Neftali haya posteado por aquí.

Saludos,

[Robert01]

Una pregunta sobre array multidimensionales y delphi 3:

¿No se puede hacer de la siguiente forma?

Código Delphi [-]
Const nmax = 100;

type Miarray =[1..Nmax,1..Nmax] of integer;

Var a : MiArray;

implementation

procedure X();
  var n : integer;
  begin
    setlength(a,n,n);
    .
    .
    .
  end;

end.

Saludos

[[Lepe]]

Empezado por Delphius

¿Ummm?
Lepe, creo que deberías tomarte un pequeño descanso.
No veo que Neftali haya posteado por aquí.

Saludos,

Tienes toda la razón... vamos toda, que no te falta nada.

Perdón seoane.

[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