Discussion :

[declencher]

Bonjour,

Je travaille actuellement avec un TList. Mon problème c'est que je veux dupliquer ce TList pour en créer un deuxième. J'ai tenté la méthode Assign qui permet de notamment de dupliquer des TList, mais les deux TList pointent sur les mêmes objets. Donc si je modifie un objet via une liste, il est également modifié quand je l'utilise avec la deuxème liste.

Auriez vous une idée pour faire ça ?

Merci.

[declencher]

Bonjour,

J'ai appliqué une solution brutale consistant à faire ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure DupliquerTList(Source, Cible : TList);
var
  i : integer;
  MonPointeur : PMaClasse;
begin
  Cible.Clear;
  for i:=0 to Source.Count-1 do
  begin
    New(MonPointeur);
    MonPointeur^ := PMaClasse(Source.Items[i])^;
    Cible.Add(MonPointeur);
  end;
end;

Si vous avez mieux je suis preneur, merci

[LadyWasky]

Bonjour,

J'ai appliqué une solution brutale consistant à faire ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure DupliquerTList(Source, Cible : TList);
var
  i : integer;
  MonPointeur : PMaClasse;
begin
  Cible.Clear;
  for i:=0 to Source.Count-1 do
  begin
    New(MonPointeur);
    MonPointeur^ := PMaClasse(Source.Items[i])^;
    Cible.Add(MonPointeur);
  end;
end;

Si vous avez mieux je suis preneur, merci

Chapeau !
Je ne pense pas qu'il y ait d'autres solutions : j'aurais aussi pensé à quelque chose dans ce style là.

[declencher]

Bonjour,

Nous allons donc dire que c'est résolu

[TicTacToe]

Attention, il peut y avoir des pertes de mémoire avec ce code
il faudrait plutot faire:

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
procedure DupliquerTList(Source, Cible : TList);
var
  i : integer;
  MonPointeur : PMaClasse;
begin
 
  // désallocation totale ici, au lieu du clear
  for i := 0 to Cible.count - 1 do
    dispose( PMaClasse(Cible.Items[i]) ); 
  Cible.Clear;
 
  for i:=0 to Source.Count-1 do
  begin
    New(MonPointeur);
    MonPointeur^ := PMaClasse(Source.Items[i])^;
    Cible.Add(MonPointeur);
  end;
end;

De plus, visiblement il s'agit de classes, si tes classes liées ont la méthode "Assign()" il serait peut être plus judicieux de remplacer l'allocation mémoire par une instanciation, puis une assignation:

Code :

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

1
2
3
NouvelObjet := MaClasse.Create()
  NouvelObjet.Assign( MaClass( Source[ i ] ) );
  Cible.Add( NouvelObjet )

Sans oublier la désallocation de 'Cible' avant ce code, dans le même esprit que la 1ere version. (mais avec un Free)

bon code !

[declencher]

Tout a fait exacte, il y a un risque de fuite mémoire. Je vais corriger mon code de ce pas. Merci

(Ma classe n'a pas de méthode Assign.)