Inicializar arrays dinamicos bidimensionales

[Anel Hernandez]

hola,

intento usar arrays dinamicos bidimensionales:

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...


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;
...

[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.


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... :o:o:o

[iMia]

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...


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...


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]

¡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! :D

[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]
||+------^ ^ ^
|+---------------+ |
+------------------------+



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:

...
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


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

[duilioisola]

Prueba cambiandole la dimensión:

// Inicializar
SetLength(cc, 0, 0);
SetLength(cc, numX, numY);

[iMia]

Segun tengo entendido y la teoria dice que se supone que con los arrays estáticos, se guarda la porción de memoria (aparerentemente contiguos) para los datos puramente, en cambio en los array dinámicos, solo se guarda una parte de memoria para guardar los punteros a las zonas de memoria donde se guardarán los datros...
Cuando accedes por fillchar(cc, numX*numY,0), estás accediendo a las posiciones contiguas (o no) de memoria a las que apunta el array estático, donde estarán los datos... en cambio en un array dinámico no deberias poder acceder con fillchar, ya que realmente accedes a las posiciones de memoria donde se guardan los punteros a los datos... ya que la posición en memoria de esos datos NO son (o no deberian ser) contiguas... de ahí que sea dinámico... hasta que no inicializas una posicicón del array, no se asigna la posición de la memoria donde se guardará. Esto aparentemente para datos simples puede parecer un pérdida de rendimiento y de memoria, ya que en la posición donde se guarda el puntero, podría haber el dato en si mismo, pero está pensado para la gestión dinámica de la memoria, ya que no es lo mismo reservar memoria que utilizarla a medida que la necesitas y para datos simples puede ser trivial, pero para datos complejos, no.

[ecfisa]

Hola Anel

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

La idea que tengo coincide con lo que te expresó iMia en el mensaje #13 (http://www.clubdelphi.com/foros/showpost.php?p=526647&postcount=13), no podría explicarlo mejor.

Saludos :)

[Anel Hernandez]

gracias a todos,
A