掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
文字列操作 (ID：7468)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
なるほど。 文字列の拡張時は確かに遅いです。 少しだけ、ByteToHexStrを改良しました。 ほんの数ミリ秒早くなりました^^; 本当は、ASMに変換して、余分なコードをさらに削りたかったんですが、DelphiのASMコード出力がわからず断念。 Local変数へのコピー分、余分なコードがあるはずです。 function MyIntToHex(const value:byte): String; var p: pbyte; begin SetLength(Result, 3); p := PBYTE(Result); p^ := value shr 4; if p^ > 10 then p^ := p^ + ($41 - 10) else p^ := p^ + ($39 - 10); Inc(p); p^ := value and 15; if p^ > 10 then p^ := p^ + ($41 - 10) else p^ := p^ + ($39 - 10); Inc(p); p^ := $20; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.