【Delphi】 ゲームつくるぞ(ﾟДﾟ)ｺﾞﾙｧ ２【Delphi】at GAMEDEV【Delphi】 ゲームつくるぞ(ﾟДﾟ)ｺﾞﾙｧ ２【Delphi】 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト801:798 08/06/27 13:06:03 adxBzq2n 一応、Avast!にも誤検知のリポートを送っておきました 802:名前は開発中のものです。 08/06/27 17:32:59 vcT/9Zh4 乙です♪ 803:名前は開発中のものです。 08/07/06 11:48:53 HG7Vxq5Q ビットを逆順にするコードをCからDelphiに移植してみた。 動作確認はTurbo Delphi。 元ネタはhttp://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; 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch