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.