J'étais pas dans le coin... si,
RTLConsts est une unité standard, mais de Delphi 2005 ! Elle contient les chaînes localisées, entre autres les messages d'erreur
SListIndexError,
SListCapacityError et
SListCountError, et s'appelait effectivement
Consts.pas dans les versions antérieures de Delphi. A la rigueur, vu que j'ai rajouté des messages d'erreur en français, autant virer la référence à
RTLConsts.pas et ajouter en constantes :
1 2 3
| SListIndexError = 'Indice de liste hors limite (%d)';
SListCapacityError = 'Capacité de liste hors limites (%d)';
SListCountError = 'Compte de liste hors limites (%d)'; |
On pourrait aussi mettre une directive de compilation conditionnelle, mais j'ai la flemme... en plus, je ne sais pas à partir de quelle version de Delphi il faut remplacer Const.pas par RTLConst.pas !
Par ailleurs, s'agissant de mon unité IntegerList.pas, je l'ai créée en m'inspirant du code source du TList de Delphi 3, dont j'avais une version pro avant de passer à Delphi 2005. Je l'ai utilisée et améliorée pendant des années, normalement elle est parfaitement exempte de bugs. Si ça vous intéresse, j'ai aussi une TInt64List, une TSingleList, une TDoubleList, une TExtendedList, une TByteList, une TTColorList, et je peux même créer autant de listes du même genre que vous voulez, grâce à un utilitaire perso.
Partager