Discussion :

[Orangina]

Bonjour

Il faut détruire les objets réservés avec new, sinon ton prg va planter rapidement. Ici tu crées un nouveau TStringList à chaque dessin d'une cellule.

Code :

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

        pList=new TStringList();

Ceci tu dois le mettre une seule fois à la création de la fiche (événement OnCreate) et mettre un delete à la fermeture de la fiche (OnClose).

[Meno]

Merci Orangina,
Je le savais mais j'ai oublié de le faire. et problème réglé. Et le for dans l'evenement on drawcell ne sert à rien une fois enlevé tout va bien, juste mettre ça a la place pour ceux que ça intéresserait:

Code :

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

 pList->Add(AnsiString(ARow));