この発言に対し以下のコメントが寄せられています

#00104　ゴンパパ        さん　RE:DelphiによるBit操作例






// 指定の整数を引数の分だけシフトする。

Function BitShift(SRC,SFTSU,SAYU: Integer): Integer;
begin
  case SAYU of
    1: {左シフト}
      Result := SRC shl SFTSU;
    2: {右シフト}
      Result := SRC shr SFTSU;
  end;
end;


// 指定整数のビットの上位、下位入れ替え

Function BitIrekae(SRC,SFTSU: Integer): Integer;
var
  cnt,DST,MASKBIT: Integer;
begin
  DST := 0;
  MASKBIT := $01;
  for cnt := 1 to SFTSU do
  begin
    DST := DST shl 1;
    if (MASKBIT and SRC) <> 0 then
      DST := DST or $01
    else
      DST := DST and $FE;
    MASKBIT := MASKBIT shl 1;
  end;
  Result := DST;
end;

北野貴之/VED00354/kit@fat.coara.or.jp


Original document by 北野貴之　　　　氏 ID:(VED00354)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。