05/12/17 04:27:33 7MXtwBbM.net
☆
ビットのシフトによる値の２倍と通常の算式による２倍との処理速度の違いを調べてみたが、
その差はほぼ皆無といえる内容だった。
ちなみに↓がそのプログラム。
(*:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::*)
(*キャプションへFPS表示*)
(*:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::*)
procedure FPSDISP;
begin
Caption=inttostr(ProjectInfo.FramePerSec)+'/'+inttostr(Trunc(SystemInfo.FramePerSec));
end;
(*:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::*)
(*ビットシフトによる値の２倍と通常算式による値の２倍との違いをみるスクリプト*)
(*:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::*)
Var
i:int;
OnEvent ExitFrame(Score,Track: Integer);
var
c:int;
a:int;
begin
For C=0 to 5000 by 1 do//下の２行のどちらかをコメントにしてＦＰＳの違いを確認する。
a=c shl 1;//ビットシフトによる値の２倍
//a=C*2;//通常の算式による値の２倍
end;
Fpsdisp;//ＦＰＳをタイトルバーに表示する手続きの呼び出し
end;