Discussion :

[edrin17]

Salut,
Est-ce que quelqu'un sait pourquoi ce code provoque une EInvalidPointer avec le message:'invalid pointer operation' ?:

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
program Project1;
 
{$APPTYPE CONSOLE}
uses
  SysUtils,
  Contnrs;
 
Type
 
C_test=class
end;
 
var Test:C_test;
    List:TObjectList;
begin
Test:=C_test.Create;
List:=TObjectList.Create;
List.Add(Test);
List.Clear;
List.Add(Test);
List.Clear;
  { TODO -oUser -cConsole Main : Insert code here }
end.

alors que celui la non:

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
program Project1;
 
{$APPTYPE CONSOLE}
uses
  SysUtils,
  Contnrs;
 
Type
 
C_test=class
end;
 
var Test:C_test;
    List:TObjectList;
begin
Test:=C_test.Create;
List:=TObjectList.Create;
List.Add(Test);
List.Clear;
List.Add(Test);
//List.Clear;
  { TODO -oUser -cConsole Main : Insert code here }
end.

N'est-il pas possible de vider une TObjectList, puis de lui ajouter des objets et de la vider encore et ainsi de suite ...???

Merci de vos reponses.

[Pedro]

Salut
Create peut avoir un paramètre OwnsObject qui spécifie ou non si les objets appartiennent à la liste. En d'autres termes, lors d'une suppression de l'objet dans la liste, l'objet lui-même est libéré également.

Si aucun paramètre n'est spécifié, ou si le constructeur est appelé avec AOwnsObjects à true, le nouvel TObjectList est initialisé avec OwnsObjects à true.

Dans ton cas, donc, OwnsObject est à true
En fait, lors du premier Clear, La liste fait un Free sur ton objet. Du coup, tu rajoutes un pointeur qui ne pointe sur rien et lorsque tu fais ton Clear, la liste essaie d'effacer l'objet censé être pointé
Si tu fais comme ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
var Test:C_test;
    List:TObjectList;
begin
Test:=C_test.Create;
List:=TObjectList.Create(false);
List.Add(Test);
List.Clear;
List.Add(Test);
List.Clear;
end.

[edrin17]

Sois Béni Pédro ! Toi et tous les gars du Forum !
Ca fait 2 jour que je relis tout mon code et de la lumière du forum émerge la solution.
Merci du fond du coeur !!