Delphi - Számok felbontása a kettes számrendszerbe

forráskód letöltése
Ebben a cikkben egy olyan algoritmust készítünk melynek segítségével egy tetszőleges 32 bites számot bonthatunk fel kettes számrendszerbe. Ebben a cikkben egy olyan algoritmust készítünk melynek segítségével egy tetszőleges 32 bites számot bonthatunk fel kettes számrendszerbe.


Ehhez létrehozunk egy NumToArray eljárást. Itt az első szám a felbontandó 32 bites integer. A második paraméter pedig egy tömb, mely logikai értékeket képes tárolni. Végül a harmadik szám mondja meg a függvénynek, hogy hány bites a felbontandó szám.

A felbontást úgy végezzük el, hogy a paraméterben kapott logikai tömb egyes elemei igazak lesznek, ha az adott helyi értéken 1 áll, különben hamis.

A végeredményt pedig megjelenítjük egy TListBox-ban.