Uma pequena função que leva o estado de um certo número inteiro em Delphi

Autor：Eve Cole Data da Última Atualização：2025-02-12 08:24:02

tipo

TPosRange = 0..32;

Tstateresult = 0..1;

função getBitsate (fonte: número inteiro; pos: tPosRange): tstateresult;

começar

Resultado: = ((fonte e (1 shl pos)) shr pos);

fim;