Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 28-05-2018
Anel Hernandez Anel Hernandez is offline
Miembro
 
Registrado: Mar 2005
Posts: 91
Poder: 14
Anel Hernandez Va por buen camino
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
Responder Con Cita
  #2  
Antiguo 28-05-2018
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: Aug 2007
Ubicación: Barcelona, España
Posts: 1.510
Poder: 14
duilioisola Tiene un aura espectacularduilioisola Tiene un aura espectacular
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;
...
Responder Con Cita
  #3  
Antiguo 28-05-2018
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: Jul 2004
Ubicación: Barcelona - España
Posts: 15.671
Poder: 10
Neftali [Germán.Estévez] Tiene un aura espectacularNeftali [Germán.Estévez] Tiene un aura espectacular
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...
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #4  
Antiguo 28-05-2018
iMia iMia is offline
Miembro
 
Registrado: Jul 2010
Posts: 60
Poder: 9
iMia Va por buen camino
Cita:
Empezado por duilioisola Ver Mensaje
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
...
Responder Con Cita
  #5  
Antiguo 28-05-2018
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: Aug 2007
Ubicación: Barcelona, España
Posts: 1.510
Poder: 14
duilioisola Tiene un aura espectacularduilioisola Tiene un aura espectacular
Cita:
Empezado por iMia Ver Mensaje
¡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!
Responder Con Cita
  #6  
Antiguo 28-05-2018
iMia iMia is offline
Miembro
 
Registrado: Jul 2010
Posts: 60
Poder: 9
iMia Va por buen camino

El copy&paste... ese gran enemigo!
Responder Con Cita
  #7  
Antiguo 28-05-2018
Anel Hernandez Anel Hernandez is offline
Miembro
 
Registrado: Mar 2005
Posts: 91
Poder: 14
Anel Hernandez Va por buen camino
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
Responder Con Cita
  #8  
Antiguo 28-05-2018
Anel Hernandez Anel Hernandez is offline
Miembro
 
Registrado: Mar 2005
Posts: 91
Poder: 14
Anel Hernandez Va por buen camino
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
Responder Con Cita
  #9  
Antiguo 28-05-2018
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: Aug 2007
Ubicación: Barcelona, España
Posts: 1.510
Poder: 14
duilioisola Tiene un aura espectacularduilioisola Tiene un aura espectacular
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);
Responder Con Cita
  #10  
Antiguo 28-05-2018
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: Dec 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.099
Poder: 30
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #11  
Antiguo 29-05-2018
Anel Hernandez Anel Hernandez is offline
Miembro
 
Registrado: Mar 2005
Posts: 91
Poder: 14
Anel Hernandez Va por buen camino
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

Última edición por Neftali [Germán.Estévez] fecha: 29-05-2018 a las 10:03:02. Razón: Corregir etiquetas
Responder Con Cita
  #12  
Antiguo 29-05-2018
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: Aug 2007
Ubicación: Barcelona, España
Posts: 1.510
Poder: 14
duilioisola Tiene un aura espectacularduilioisola Tiene un aura espectacular
Prueba cambiandole la dimensión:

Código Delphi [-]
// Inicializar
SetLength(cc, 0, 0);
SetLength(cc, numX, numY);
Responder Con Cita
  #13  
Antiguo 29-05-2018
iMia iMia is offline
Miembro
 
Registrado: Jul 2010
Posts: 60
Poder: 9
iMia Va por buen camino
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.
Responder Con Cita
  #14  
Antiguo 29-05-2018
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: Dec 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.099
Poder: 30
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Anel
Cita:
Empezado por Anel Hernandez Ver Mensaje
...
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #15  
Antiguo 29-05-2018
Anel Hernandez Anel Hernandez is offline
Miembro
 
Registrado: Mar 2005
Posts: 91
Poder: 14
Anel Hernandez Va por buen camino
gracias a todos,
A
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
arrays dinamicos Chompiras Varios 8 14-07-2015 22:49:51
Inicializar arrays multidimensionales Wellnic Varios 10 25-05-2007 19:44:52
Arrays dinamicos Besto Varios 4 13-10-2006 15:24:01
Arrays dinámicos con Delphi.NET mamen .NET 0 25-11-2004 14:21:35
Arrays Dinamicos mauro Varios 4 05-07-2003 21:14:29


La franja horaria es GMT +2. Ahora son las 22:22:18.


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