Форум: "Основная";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
ВнизPascal срочно, плзззз... Найти похожие ветки
← →
Rooman (2002-03-31 11:28) [13]Короче, дело к ночи:)
Вот вам функция, которая меняет два любых бита в числе:
procedure swapbits(BitPos1,BitPos2:byte;var Number:longint);
var i1,i2,j,k:longint;
begin
i1:=1;
i2:=i1;
i1:=i1 shl BitPos1;
i2:=i2 shl BitPos2;
j:=Number and i1;
k:=Number and i2;
Number:=Number or i2 or i1;
if j=0 then Number:=Number xor i2;
if k=0 then Number:=Number xor i1;
end;
Страницы: 1 2 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.007 c