5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

モナーの *やさしい* Delphi質問スレ Ver.14

232 :デフォルトの名無しさん:03/04/18 11:07
バイト配列を TBits に展開したいのですが、良いアルゴリズムはないでしょうか。

Procedure Bit(Bytes : Byte; Index : Integer;var bits:tbits);
var
i,o:Byte;
begin
for i := 0 to 7 do
begin
o := ((Bytes shr (7 - i)) shl 7);
bits[i + Index] := Boolean(o);
end;
end;

Procedure Main;
var i:integer;
begin
for i := 0 to (high(Bytedata) -1) do
bit(Bytedata[i],i * 8,bits);
end;

何度かの改良の後、こんな感じで回してるのですが、Athlon 1.4GHzのマシンでも、
600 KB のバイト配列を展開するのに、 100 ms ほどかかってしまいます。
もっとマシな方法を使ってる方いましたら、ご教授ください。

209 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)