java转delphi

[取昵称麻烦]

如题：请高手帮忙把以下java代码转成delphi7的代码，谢谢了
//Hex解码
private byte[] decodeBytes(String s) {
if ( s == null )
return new byte[0];
try {
return Hex.decodeHex(s.toCharArray());
} catch (DecoderException e) {
throw new RuntimeException(e);
}
}
//UTF-16BE解码
private String decodeMessage(int dc, byte[] buf) {
if ( buf == null )
return "";
try {
// 这里只解码了8
if ( dc == 8 )
return new String(buf, "UTF-16BE");
else if (dc == 0)
return new String(buf, "Ascii");
else if (dc == 15)
return new String(buf, "GBK");
} catch (Exception e) {
e.printStackTrace();
}
return new String(buf);
}