Bonjour,

Je voulais identifier quelques objets avec des fixeds.

alors je déclare un type T_Id de la façon suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
 type T_Word_Id is delta 0.000_000_5 range 0.0..1.0;

puis pour vérifier que je bien mon compte, je fait un test

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
procedure Main is
   Count : Natural := 1;
   Word_Id : T_Word_Id := T_Word_Id'First;
begin
   loop
      Count := Count+1;
      Word_Id := T_Word_Id'Succ(Word_Id);
      exit when Word_Id = T_Word_Id'Last;
   end loop;
   Put("Count: " & Natural'Image(Count));
end Main;
Et magic ... enfin non, j'obtiens "Count: 2097153".

J'ai 97153 id en bonus

Pourquoi j'ai pas 2_000_000 tout rond ?

Merci