Eine kleine Funktion, die den Bitzustand einer bestimmten Ganzzahl in Delphi nimmt

Autor：Eve Cole Aktualisierungszeit：2025-02-12 08:24:02

Typ

TPosRange = 0..32;

Tstateresult = 0..1;

Funktion getBitsate (Quelle: Ganzzahl; POS: tPosRange): Tstateresult;

beginnen

Ergebnis: = ((Quelle und (1 Shl pos)) SHR pos);

Ende;