Delphi写的程序求算法。。
解决方案 »
- delphi设计 xp风格左侧任务栏(急!!!!)
- 终于盼到星星了, 散分一周庆祝一下(6)
- delphi 出现的非法操作提示,请大家帮帮忙。
- ehgrdi中添加一自然顺序列,从1开始
- 如何在SQL中创建一个新的用户名
- 一段SQL语句的问题,大家帮忙看一下!!!!!!!
- 关于image的问题具体请进来看一下。谢谢了
- 在一个HTM文件中如何删除多余的代码?在线等
- 定义自己的组件编辑器,TComponentEditor的哪些方法必须覆盖?回答全面一些,举例不给分
- 在有delphi client/server suite版本,并且本机有网卡的单机环境下,能不能制作并测试多层数据库?
- 为什么我跨窗体取得数据去进行数据库保存会保存失败!
- Delphi调用VC的DLL问题
var
i: Integer;
sTemp: string;
begin
for i := 1 to length(aWideStr) do
begin
sTemp := Format('#%d', [Word(aWideStr[i])]); Result := Result + sTemp;
end;
end;function TForm1.UTF8_Str_Unicode(const asUnicodeHex: string): WideString;
var
sTemp: string;
Dest: PwideChar;
swc: PChar;
begin
GetMem(swc, 1024);
swc := PChar(asUnicodeHex);
GetMem(Dest, 1024);
try
Utf8toUnicode(Dest, swc, 1024);
sTemp := WideCharToString(Dest);
finally end;
Result := Result + sTemp;
FreeMem(Dest);
end;
UnicodeToDel(UTF8_Str_Unicode('中国'));
返回
#20013#22269
delphi 窗体 中文编码