Una pequeña función que toma el estado de bit de cierto número entero en Delphi

Autor：Eve Cole Fecha de actualización：2025-02-12 08:24:02

tipo

TposRange = 0..32;

Tstateresult = 0..1;

function getBitsate (fuente: entero; pos: tposrange): tstateresult;

comenzar

Resultado: = ((fuente y (1 shl pos)) shR pos);

fin;