解决方案 »
- delphi 2007中用Import Type Library导入的控件怎么看不到?谢谢!
- 请问我要使用ADO 连接操作 Desktop数据库 应该怎么做/>?
- 使用installshield express制作安装程序时,如何对建库脚本加密??
- 请问有做过usb监控的吗?请指点一下!
- 招聘Delphi程序员(江苏,太仓)
- 有谁知道PHOTOSHOP,FLASH这些软件是用什么工具开发的?
- 前台程序,数据库管理系统,数据库
- 请高手帮忙,查询问题。
- proxies.pas文件在delphi 6里被什么文件代替了?找不着,以前的一些东东就无法使用了
- csdn为什么这么冷清?
- windows 2003 Server 中的中间层设置问题
- 如何在窗体初始化时让DBComboBox显示各默认值
function RTFUniCode(aTagText: AnsiString): WideChar;
var aAC: array[0..1] of Char;
begin
Result := #0;
if Length(aTagText) <> 6 then Exit;
if Copy(aTagText, 1, 2) <> '\u' then Exit;
HexToBin(PAnsiChar(Copy(aTagText, 5, 2)), @aAC[0], 1);
HexToBin(PAnsiChar(Copy(aTagText, 3, 2)), @aAC[1], 1);
Result := PWideChar(@aAC)^;
end;