[D2006] EInvalidPointer avec un TObjectList.clear
Salut,
Est-ce que quelqu'un sait pourquoi ce code provoque une EInvalidPointer avec le message:'invalid pointer operation' ?:
Code:
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:
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.:D
