antp a écrit :
Oui :
en private de la Form :
FCheckboxes: array [1..9] of TCheckbox;
dans le OnCreate de la Form :
FCheckboxes[1] := Checkbox1;
...
FCheckboxes[9] := Checkbox9;
puis on accède aux checkboxes via FCheckbox[], c'est plus propre, et on ne doit pas se baser sur les noms (dans le code posté, si on change le nom des checkbox, ça compile, puis ça plantera à l'exécution. Alors que dans mon code on verra l'erreur à la compilation, et c'est nettement plus optimisé
|