文字列操作 (ID:7467)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

>にしのさん

>私の場合、速度云々はコーディング後の調整で、まずはわかりやすく書くべきと思ってます。

はい、わたしもそうしてます。しかし今回は速度が遅いのでどうにかしたい、とい
のが主眼でしたので、思いっきりポインタを使ってしまいました。（笑）

実際のところ TFileStream と TMemoryStream では Read Write を使う限り
あまり速度の差は無いようです。しかし、TMemoryStream ではポインタが使える
ので、ポインタを使う限りでは値のコピーをしなくて済みますのでそれだけ
速いです。

もっとも変換速度に影響するのは、文字列の継ぎ足しをするかどうかです。

st := st + nanika;

というのはものすごく効率悪いです。１メガバイトのファイルで最後に１０バイト
を継ぎ足すとき、文字列全体がコピーされることもあり得ます。これが、何千回
以上も起こることを想像すると、ちょっとたじろぎます。文字列が長ければ
長いほど、継ぎ足しによる効率の低下はひどくなります。

今回の場合のように桁数が一定の場合、IntToHex() と ByteToHexStr() の
どちらが速いか試してました。

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  st,ed:DWORD;
  b:Byte;
  s:string;
begin
  st := GetTickCount;
  for i := 1 to 10000 do
    for b := 0 to $FF do
      s := ByteToHexStr(b);
  ed := GetTickCount;
  Label1.Caption := IntToStr(ed-st);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i:integer;
  st,ed:DWORD;
  b:Byte;
  s:string;
begin
  st := GetTickCount;
  for i := 1 to 10000 do
    for b := 0 to $FF do
      s := IntToHex(b,2)+' ';
  ed := GetTickCount;
  Label2.Caption := IntToStr(ed-st);
end;

わたしの環境では ByteToHexStr() のほうが６倍くらい速いです。

←解決時は質問者本人がここをチェックしてください。

戻る