文字列操作 (ID:7463)

名前

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

本文

はなです。

ダンプ変換のソースを載せてみます。

jokさん、にしのさんがコーディングされたソースを
調べてみて、自分のと比較してみます。

===================================================
function Dump( const s : string ) : String;

var
  dump, msg : string;
  i, len, c, posi : integer;
const
  colmax : integer = 16;
  cr : char = #13;
  lf : char = #10;
begin

posi := 0;
  len := Length( s );

dump := '----------------------------------------------------------------------';
  dump := dump + #13#10 + '      ';

for i := 0 to colmax - 1 do
  begin
    dump := dump + IntToHex( i, 2 ) + ' ';
  end;
  dump := dump + '0123456789ABCDEF';
  dump := dump;

repeat

begin

if len <= ( posi + colmax ) then
      c := len - posi
    else
      c := colmax;

dump := dump + #13#10;
    dump := dump + IntToHex( posi, 5 ) + ' ';

msg := '';
    for i := 1 to colmax do
    begin
      if i > c then
      begin
        dump := dump + '   ';
      end
      else
      begin
        dump := dump + IntToHex( Ord( s[posi+i] ), 2 ) + ' ';
        msg := msg + s[posi+i];
      end;
    end;
    msg := StringReplace( msg, #13, '.', [rfReplaceAll]);
    msg := StringReplace( msg, #10, '.', [rfReplaceAll]);
    dump := dump + msg;
    posi := posi + colmax;
  end;

until len <= posi;

result := dump;

end;

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

戻る