Inicializar arrays dinamicos bidimensionales

[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

[Anel Hernandez]

hola,

aqui hay un tema donde usan fillchar pero con arrays estaticos, vean la respuesta de nlsgarcia:
www.clubdelphi.com/foros/showthread.php?t=84602

ese ejemplo me funciona OK. A mi con los dinamicos no me funciona. Saben como hacerlo?

gracias,
A

[[duilioisola]]

Disclaimer: Esto es una suposición mia. No conozco la implementación de arrays dinámicos.

El problema debe estar en que un array reserva memoria desde una posición en adelante.
En el caso de arrays dinámicos, la segunda dimension, seguramente, serán punteros a otras posiciones de memoria que no serán contiguas.
Supongo que podrías hacer un for con la primera dimensión e inicializar la segunda con FillChar.

x Memoria libre
0 Memoria utilizada por la estructura
P Puntero
Estatico : array [3, 3]  -->  Memoria: xxxx[000000000]xxxxxxxxx
Dinámico : array [3, 3]  -->  Memoria: xxxx[PPP]xxxx[000]xxx[000]xxx[000]
                                            ||+------^       ^       ^
                                            |+---------------+       |
                                            +------------------------+

Código Delphi [-]
var
 cc : array of array of real;
...
  SetLength(cc, numX, numY);
...
  for i := 0 to numX-1 do
     FillChar(cc[numX], SizeOf(cc[numX]), 0);

[ecfisa]

Hola.

No es necesario inicializar los arreglos dinámicos, Delphi lo hace de forma automática al tipo que corresponda: cero, cadena vacía, nulo, falso, etc.

Distinto es el caso cuando deseamos llenar el arreglo con un valor distinto al que Delphi utiliza por defecto, en ese caso:

Código Delphi [-]
...
type
  TDyn2DFloatArray = array of array of Double;

procedure InitDyn(var vv: TDyn2DFloatArray; const Value: Double);
var
  c, f : Integer;
begin
  for f := Low(vv) to High(vv) do
    for c := Low(vv[f]) to High(vv[f]) do
      vv[f, c] := Value;
end;

// Ejemplo de uso:
...
var
  mt: TDyn2DFloatArray;
begin
  SetLength(mt, 3, 3);
  InitDyn(mt, 3.14159265);
   ...

Saludos

[Anel Hernandez]

ecfisa,

el problema esta en que necesito usar mi array varias veces y necesitaria hacerlo cero cada vez que lo use. fijate que esta dentro del ciclo de k=1 a t

Código Delphi [-]
for k:=1 to t do begin
 fillchar(cc,numX*numY,0); //prueba 1  ............

puedo hacerlo con fillchar? o la unica manera es con ciclos anidados?

gracias,
Anel