Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Inicializar arrays dinamicos bidimensionales (https://www.clubdelphi.com/foros/showthread.php?t=93133)

Anel Hernandez 28-05-2018 06:40:14
Inicializar arrays dinamicos bidimensionales
 
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 28-05-2018 08:30:39
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;
...

Neftali [Germán.Estévez] 28-05-2018 09:54:07
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... :o:o:o

iMia 28-05-2018 10:25:31
Cita:
Empezado por duilioisola (Mensaje 526590)
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 28-05-2018 10:31:56
Cita:
Empezado por iMia (Mensaje 526596)
¡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 28-05-2018 10:56:54
^\||/
El copy&paste... ese gran enemigo! :D

Anel Hernandez 28-05-2018 14:41:49
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 28-05-2018 15:01:40
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 28-05-2018 15:59:47
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.

Código:
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 28-05-2018 16:42:51
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 29-05-2018 05:04:22
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

duilioisola 29-05-2018 08:13:02
Prueba cambiandole la dimensión:

Código Delphi [-]
// Inicializar
SetLength(cc, 0, 0);
SetLength(cc, numX, numY);

iMia 29-05-2018 12:00:50
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 29-05-2018 15:38:21
Hola Anel
Cita:
Empezado por Anel Hernandez (Mensaje 526630)
...
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, no podría explicarlo mejor.

Saludos :)

Anel Hernandez 29-05-2018 19:34:20
gracias a todos,
A


La franja horaria es GMT +2. Ahora son las 08:31:43.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi