Discussion :

[kindool]

bonjour je cherche à savoir si deux unsigned_long sont égaux.
voici une partie de win32.ads dont je me sert :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
-- "unsigned long" 32 bit unsigned integers
    subtype ULONG       is Interfaces.C.Unsigned_Long;      -- windef.h
    subtype DWORD       is ULONG;                           -- windef.h

or je ne peux pas faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if mon_ulong1 = mon_ulong2 .....

merci de bien vouloir m'apportez une aide si vous pensez le pouvoir.

[HRS]

il faut faire une conversion de type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
   with Text_IO; use text_IO;
   with Win32; use Win32;
   procedure ulongue is
      ul1 : ulong := 1;
      ul2 : ulong := 3;
   begin
      if integer(ul1) = integer(ul2) then
         put_line ("egal");
      else
         put_line ("pas egal");
      end if;
   end ulongue;

[kindool]

oui effectivement c'est ce que je fais, même pour des oppérations, je voulais juste savoir si il existait une façon plus "élégante".
Apparament non donc je reste là dessus merci

[jc-miranda]

il faut faire une conversion de type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
   with Text_IO; use text_IO;
   with Win32; use Win32;
   procedure ulongue is
      ul1 : ulong := 1;
      ul2 : ulong := 3;
   begin
      if integer(ul1) = integer(ul2) then
         put_line ("egal");
      else
         put_line ("pas egal");
      end if;
   end ulongue;

On dirait que c'est plutot un probleme de visibilite de l'operateur vu que tes deux variables sont du meme type.
tu peux soit ajouter un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
use type Win32.ulong;

dans la zone de declaration de ta procedure,
ou alors specifier en clair l'operateur dans ton code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
if Win32."="(ul1,ul2) then

ou alors faire un renames de l'operateur pour avoir la visibilite que tu desires :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
function "="(left : in win32.ulong ; right : in Win32.ulong) return boolean renames win32."=";

ce qui est AMA beaucoup plus propre que des casts en Integer.

A+

Juan

[kindool]

oui ça marche et c'est sur c'est plus propre
merci beaucoup !