08/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;
とすれば、その部分には対応すると思うけど、他にも違いがありそうだね。
仕様が判ってるのはあなただけだから、自分でやってね