Bonjour, je dispose de 2 packages génériques que j'utilises 2 fois chacun (une fois pour les integers et une fois pour les strings). J'ai également un fichier "main" qui se charge d'instancier le package selectionné par l'utilisateur.
- package1 avec integer
- ou package1 avec string
- ou package2 avec integer
- ou package2 avec string
Le but est d'utiliser le même code du main pour les 4 packages.
Malheureusement je ne trouve pas comment faire cela proprement. Pour le moment j'ai mis la liste des packages en dur que je commente. Il n'est pas possible de faire des pseudo if dans le begin ou de faire le new package dans le begin ? Sinon peut etre en passant la package en paramètre de la fonction ?
Merci d'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 procedure main is package aB is new package1(integer, false, afficheInteger, true); --package aB is new package1(Unbounded_String, true, afficheUnbounded, true); --package aB is new package2(1,integer, false, afficheInteger, true); --package aB is new package2(1, Unbounded_String, true, afficheUnbounded, true); begin aB.init(); .....
Partager