Bonjour
Je continue mon apprentissage...

J'en suis à la destruction de mes objects.
mais j'ai le message suivant sur le free de point
"opération de pointeur incorrecte"

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
destructor TGroupe.Destroy;
var
   indexPoint: integer;
   Point: TPoint;
   indexCouleur: integer;
   Couleur: TCouleur;
   indexFace: integer;
   face: TFace;
begin
   // 1 destruction des objects de la listePoint
   For indexPoint := self.ListePoint.Count - 1 DownTo 0 Do
   Begin
      If self.ListePoint.Items[indexPoint] <> Nil Then
      begin
         Point := self.ListePoint.Items[indexPoint] as TPoint;
         Point.Free; // Appel du destructeur de l'object ou Free car c'est un point
      end;
      self.ListePoint.Delete(indexPoint); // Suppression de l'élément dans la liste
   End;
   Self.ListePoint.Free; // Détruit la liste
Mon groupe à une liste de d'objects points et le groupe fait partie lui-meme d'une listeGroupe dans un object Fichier