Vous l'aviez demandé, la voici. Cette procedure vous renvoie le type d'un nombre : byte, word, long, float (respectivement par les chiffres 1, 2, 3, 4). Le support des float n'est pas super a mon avis. Il se peut qu'il plante et ne renvoie pas 4. Les float sont (pardonnez moi l'expression) un vrai bordel ! Sur les 1h 30 qu'il m'a fallu 1h15 étaient pour eux ! M'enfin, voici la lib :
http://www.heisspiter.no-ip.com/typeof .Et un exemple
Code : Tout sélectionner
Debug TypeOf(1)
Debug TypeOf(128)
Debug TypeOf(32768)
Debug TypeOf(2147483648)
Debug "-------------------------"
Debug TypeOf(-1)
Debug TypeOf(-129)
Debug TypeOf(-32769)
Debug TypeOf(-2147483655)
Debug "-------------------------"
Debug TypeOf(1.5)
Debug TypeOf(-129.8)
Amusez vous bien !
