Une petite fonction qui prend l'état de bits d'un certain entier à Delphi

Auteur：Eve Cole Date de mise à jour：2025-02-12 08:24:02

taper

Tposrange = 0..32;

TStateresult = 0..1;

fonction getBitsate (source: entier; pos: tposrange): tStateResult;

commencer

Résultat: = ((source et (1 shl pos)) SHR POS);

fin;