Discussion :

[Benoit_T]

Bonjour,

Je souhaite bêtement copier un tableau dynamique à deux dimension dans un autre tableau dynamique à deux dimensions, il s'agit d'un tableau du type:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 array of array of Integer;

J'ai expérimenté un peu avec MOVE et COPY sans grand succès.
Avez-vous une suggestion pour résoudre mon problème (sans parcourir chaque élément du tableau bien évidement).

Cordialement,

[ShaiLeTroll]

En théorie, avec le Move sur deux tableaux avec les mêmes dimensions, c'est osé, mais cela doit fonctionner !

Sinon, Copy, doit fonctionner, c'est la fonction faite pour ...

faire voir ton code

[Andnotor]

Ca ne fonctionnera pas sans boucle avec un tableau dynamique puisque ce ne sont que des pointeurs sur... d'autres tableaux.

[ShaiLeTroll]

Bien vu AndNotOr, Copy ne copie que les références, ce code démontre la vacherie de la chose !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
var
  A1, A2: array of array of Integer;
  I, J: Integer;
  S: string;
begin
  SetLength(A1, 10, 100);
 
  for I := Low(A1) to High(A1) do
    for J := Low(A1[I]) to High(A1[I]) do
      A1[I, J] := I + J;
 
  A2 := Copy(A1); // Fait juste pointer A2 sur A1 ...
 
  S := '';
  for I := Low(A2) to High(A2) do
    for J := Low(A2[I]) to High(A2[I]) do
      S := S + #13 + IntToStr(A2[I, J]);
 
  ShowMessage(S);
 
  for I := Low(A1) to High(A1) do
    for J := Low(A1[I]) to High(A1[I]) do
      A1[I, J] := A1[I, J] * 10;
 
  S := '';
  for I := Low(A2) to High(A2) do
    for J := Low(A2[I]) to High(A2[I]) do
      S := S + #13 + IntToStr(A2[I, J]); 
 
  ShowMessage(S);
end;

la solution étant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
  SetLength(A2, 10, 100);
  for I := Low(A2) to High(A2) do
    A2[I] := Copy(A1[I]);

Valable pour des tableau dynamiques avec la même seconde dimension ...

EDIT, j'ai fermé Delphi, ça donne quoi ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
  SetLength(A2, 10);
  for I := Low(A2) to High(A2) do
     A2[I] := Copy(A1[I]);

[Andnotor]

Et encore, dans ton exemple, tu fixes toutes les dimensions du tableau en un seul SetLength. On pourrait imaginer que le données sont contiguës. Mais elles ne le seront certainement pas avec plus loin un SetLenth(A1[5], 101) (Réallocation).

Il y a aussi ces 2 dword au pointeur -4 (-8) qui représente le compteur de référence et le nombre d'éléments dans le tableau (high). A prendre en compte dans Copy... avant de reseter le compteur de référence...

Et j'en oublie surement !

Je choisirais la facilité avec 2 petites boucles .

[Kaféine]

Salut,

Un simple CopyMemory (API windows) doit faire l'affaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  CopyMemory(@Dest, @Src, SizeOf(Src));

[Montor]

Pourquoi pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
B:array of array of integer;
B:=Copy(A)

[ShaiLeTroll]

Montor, voir le problème du Copy ICI ... qui ne copie que les références car il copie le array de array sans copié chaque item
Lit donc un peu la conversation, tu as fait le même coup ICI, et proposant une solution déjà évoqué qui justement est le problème