Процедура на Delphi SetBit устанавливает указанный бит в числе
procedure SetBit(var N: Longint; nBit: Byte);
{N - число
nBit - номер бита}
begin
N := ((1 shl (nBit - 1)) or N);
end;
Сейчас музыка mp3 легко ищется в Интернете.
Программирование на Delphi и не только
Сайт для Delphi программиста
Процедура на Delphi SetBit устанавливает указанный бит в числе
procedure SetBit(var N: Longint; nBit: Byte);
{N - число
nBit - номер бита}
begin
N := ((1 shl (nBit - 1)) or N);
end;
Сейчас музыка mp3 легко ищется в Интернете.