[表示 : 全て 最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 2chのread.cgiへ]
Update time : 09/18 05:21 / Filesize : 258 KB / Number-of Response : 975
[このスレッドの書き込みを削除する]
[＋板 最近立ったスレ＆熱いスレ一覧 : ＋板 最近立ったスレ／記者別一覧] [類似スレッド一覧]

↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

【Delphi】 ゲームつくるぞ(ﾟДﾟ)ｺﾞﾙｧ ２【Delphi】

803 名前：名前は開発中のものです。 mailto:sage [2008/07/06(日) 11:48:53 ID:HG7Vxq5Q]
ビットを逆順にするコードをCからDelphiに移植してみた。
動作確認はTurbo Delphi。
元ネタはpc11.2ch.net/test/read.cgi/tech/1215242849/58

function Reverse_Bits(Bits: Longword):    Longword;
var
i: longword;
begin
    i:=Bits;

    i := ((i and $55555555) shl 1) or ((i shr 1) and $55555555);
    i := ((i and $33333333) shl 2) or ((i shr 2) and $33333333);
    i := ((i and $0F0F0F0F) shl 4) or ((i shr 4) and $0F0F0F0F);
    i := ((i and $00FF00FF) shl 8) or ((i shr 8) and $00FF00FF);
    i := i shr 16 or i shl 16;

    result:=i;
end;


procedure TForm2.Button1Click(Sender: TObject);
var
i: longword;
begin
    i:=$F0F0FFFF;

    Memo1.Lines.Add('変換前' + IntToHex(i, 8));
    Memo1.Lines.Add('変換後' + IntToHex(Reverse_Bits(i), 8));
end;




[ 続きを読む ] / [ 携帯版 ]
全部読む 前100 次100 最新50 ▲ [ このスレをブックマーク！ 携帯に送る ] 2chのread.cgiへ
[＋板 最近立ったスレ＆熱いスレ一覧 : ＋板 最近立ったスレ／記者別一覧]（ ´∀｀）＜258KB

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef