Discussion :

[Galet]

Bonjour à tous,
Je souhaite passer, en paramètre, un nombre plus ou moins important d'options types Booléennes.

En automatisme, pour simplifier le code, je passerai par un byte ou un mot, dans lequel chaque bit représenterait une option. Cette méthode n'est lisible qu'en utilisant une écriture binaire b10011100.
Un simple masque permet de filtrer pour savoir si l'option est demandée ou non.

Delphi ne travaille pas nativement sur du binaire. Je pourrais coder et décoder une chaine de caractère, utiliser l'hexa (moins lisible) ou enfin écrire un petit bout de code en assembleur pour ne pas alourdir cette conversion (qui risque d'être beaucoup utilisée).

Je pense que ce besoin doit être partagé. Que me conseillez-vous ? Une unité dédiée existe-t-elle ?
Merci par avance,

[Paul TOTH]

en fait le binaire sous Delphi se gère avec des SET OF

Code :

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

1
2
3
4
5
6
7
8
9
 
type
  bit = (b0,b1,b2,b3,b4,b5,b6,b7);
  bits = set of bit;
 
procedure test(value: bits);
begin
  if b1 in value then ...
end;

mais Alexandria support la notation binaire aussi

[Galet]

Merci Paul,
Je n'avais pas pensé aux ensembles.
Ce n'est pas la solution que j'espérais...mais ça répond au besoin. (en remplaçant le On par In)

Code :

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

1
2
3
4
procedure TfrmMain.Test(value: bits);
begin
  if b0 in value then showMessage('Ok');
end;

Arriver à Alexandria pour que Delphi utilise le codage natif de mon vieux Commodore 64. On n'arrête pas l'progrès...
Cordialement,

[Paul TOTH]

Arriver à Alexandria pour que Delphi utilise le codage natif de mon vieux Commodore 64. On n'arrête pas l'progrès...
Cordialement,

comment ça ? je n'ai pas souvenir que le BASIC du CBM64 permette des notations binaires

[Galet]

Il est vrai que je codais plus souvent en assembleur et j'avoue ne plus avoir de souvenir du basic d'origine....
Il faudrait que je ressorte les docs. Peut-être un peu plus tard...dans un élan de nostalgie...