Fungsi kecil yang mengambil keadaan bit dari bilangan bulat tertentu di Delphi

Penulis：Eve Cole Waktu Pembaruan：2025-02-12 08:24:02

jenis

TpoSrange = 0..32;

Tstateresult = 0..1;

fungsi getbitsate (sumber: integer; pos: tposrange): tstateresult;

mulai

Hasil: = ((Sumber dan (1 SHL POS)) SHR POS);

akhir;