Inicializar arrays dinamicos bidimensionales

[Anel Hernandez]

hola,

intento usar arrays dinamicos bidimensionales:

Código Delphi [-]
var

 cc:array of array of real;

..............

 SetLength(cc,numX,numY);

..............

 for k:=1 to t do begin

  fillchar(cc,numX*numY,0); //prueba 1
  fillchar(cc,sizeof(cc),0);//prueba 2

  for j:=1 to numY do begin
   for i:=1 to numX do begin
    cc[i-1,j-1]:=numero[i,j,k];

..............

   end;
  end;

al llegar al fillchar cc es =((0,0,...00)) y al pasar por el da =(). Solo uso uno a la vez. Puse los dos para que vean como intento inicializarlos.

luego cuando asigno algun valor me da Access Violation Error.

esto lo he heho varias veces con arrays unidimensionales y trabaja OK. que me esta pasando en este caso?

me ayudan?

gracias
A

[[duilioisola]]

No conozco como es la estructura de memoria interna de un array, pero si es como los strings, el primer byte dice la longitud y si lo rellenas con 0 se volverá un array "vacio".
También puede ser que se trate de un caracter especial al final de cada "subarray" como el \n en C.

¿Por qué no lo inicializas de mas forma natural a delphi?
Si no son millones de celdas en el array, no creo que tome un tiempo excesivo...

Código Delphi [-]
var
  cc : array of array of real;
...
  SetLength(cc, numX, numY);
...
  // Inicializa valores a 0 en ambas dimensiones
  for j := 0 to numY - 1 do begin
    for i := 0 to numX - 1 do begin
      cc[i-1, j-1] := 0;
...

[iMia]

Empezado por duilioisola

No conozco como es la estructura de memoria interna de un array, pero si es como los strings, el primer byte dice la longitud y si lo rellenas con 0 se volverá un array "vacio".
También puede ser que se trate de un caracter especial al final de cada "subarray" como el \n en C.

¿Por qué no lo inicializas de mas forma natural a delphi?
Si no son millones de celdas en el array, no creo que tome un tiempo excesivo...

Código Delphi [-]
var
  cc : array of array of real;
...
  SetLength(cc, numX, numY);
...
  // Inicializa valores a 0 en ambas dimensiones
  for j := 0 to numY - 1 do begin
    for i := 0 to numX - 1 do begin
      cc[i-1, j-1] := 0;
...

¡Cuidado!...
Si en el for limitas a numX-1 o pred(numX) , luego en la asignación no hace falta el cc[i-1,y-1] ya que en la primera pasada daría error... indices [-1,-1] y el último valor no quedaria inicializado... (pero no llega por el error inicial...

Código Delphi [-]
var
  cc : array of array of real;
...
  SetLength(cc, numX, numY);
...
  // Inicializa valores a 0 en ambas dimensiones
  for i := 0 to pred(numX) do 
    for j := 0 to pred(numY) do 
      cc[i, j] := 0;  // Incorrecto: cc[i-1,j-1] := 0
...

[[duilioisola]]

Empezado por iMia

¡Cuidado!...
Si en el for limitas a numX-1 o pred(numX) , luego en la asignación no hace falta el cc[i-1,y-1] ya que en la primera pasada daría error... indices [-1,-1] y el último valor no quedaria inicializado... (pero no llega por el error inicial...

Tienes razón... copié y pegué, y modifiqué solo la primera parte...
Siempre lo mismo con copiar y pegar...

Gracias!

[iMia]

El copy&paste... ese gran enemigo!

[Anel Hernandez]

hola,

quiero inicializar usando Fillchar. yo se hacerlo, como proponen, inicializando 1 a 1 los elementos del array.

cuando trabajo con arrays unidimensionales inicializo con Fillchar. con 2D no lo logro. lo que quiero es inicializarlos con Fillchar. lograr el mismo resultado que ustedes con el ciclo anidado pero con Fillchar.

Con 1D funciona, con 2D aun no se como hacerlo.

actualmente lo hago con un ciclo anidado como el que uds sugieren, quisiera aprender a hacerlo con Fillchar.

es posible inicializar arrays bidimensionales con fillchar?


gracias,
A

[Neftali [Germán.Estévez]]

Realmente no me queda claro qué deseas hacer. Explicas algunas cosas pero me lía el título.
Según el título, quieres inicializar un array dinámico de 2 dimensiones, cosa que requiere un código bastante simple como el que se ve a continuación, pero por otro lado haces cosas en el código (como utilizar Fillchar para un array de real) a las que no acabo de verles sentido.

Código Delphi [-]
const
  numX = 10;
  numY = 10;
var
  cc:array of array of real;
  i,j,cont:integer;
  str:String;
begin
  cont := 1;
  // Tamaño
  SetLength(cc,numX,numY);
  // Recorrer las 2 dimensiones y asignar el valor inicial
  for i := 0 to High(cc) do begin
    for j := 0 to High(cc[i]) do begin
      // Como valor inicial usamos un consecutivo
      cc[i,j] := cont;
      Inc(cont);
    end;
  end;

NOTA: Veo que he llegado tarde...

[Anel Hernandez]

gracias a todos,
A