- 642 名前：デフォルトの名無しさん mailto:sage [2008/05/11(日) 09:08:54 ]
- それは独自仕様って事だね。
'x':try
Result := Result + char(StrToInt('$' + s[i + 1] + s[i + 2]));
inc(i, 2);
except end;
この部分を
'0'..'9' , 'A'..'F':try
Result := Result + char(StrToInt('$' + s[i ] + s[i + 1]));
inc(i);
except end;
とすれば、その部分には対応すると思うけど、他にも違いがありそうだね。
仕様が判ってるのはあなただけだから、自分でやってね
