UnicodeToUtf8这个函数怎么用啊????????? UnicodeToUtf8这个函数怎么用啊?????????最好能有个例子. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Button1Click(Sender: TObject);var Dest:Pchar; Unic:PWidechar; str:string; NewDest:PwideChar;begin GetMem(Unic,100); try GetMem(Dest,100); UnicodeToUtf8(Dest,StringToWideChar('测试字符串', Unic, 100),100); try str:=StrPas(Dest); ShowMessage('utf8的编码为:'+Str); GetMem(NewDest,100); try Utf8toUnicode(NewDest,Dest,100); ShowMessage('原始的字符为:'+WideCharToString(NewDest)); finally FreeMem(NewDest); end; finally FreeMem(Dest); end; finally FreeMem(Unic); end;end; 修改这个SQL语句 ExpressQuantumGrid 5控件使用问题 如何用opendialog选择目录而不是文件? 還是關于三層開發中的應用服務器問題 pchar 类型的字符串怎么赋值给 char 的数组呢? 请问写一个带有参数的较全面的.bat文件如何写? 为什么用icmp.dll实现ping不行?具体代码如下,各位牛人,请进入 Comm控件参数设置问题 如何使dxbaredit得到焦点 谁有WEB浏览器的图标? 请教高手(急):报表设计 关于DBDEMOS的困惑
var
Dest:Pchar;
Unic:PWidechar;
str:string;
NewDest:PwideChar;
begin
GetMem(Unic,100);
try
GetMem(Dest,100);
UnicodeToUtf8(Dest,StringToWideChar('测试字符串', Unic, 100),100);
try
str:=StrPas(Dest);
ShowMessage('utf8的编码为:'+Str);
GetMem(NewDest,100);
try
Utf8toUnicode(NewDest,Dest,100);
ShowMessage('原始的字符为:'+WideCharToString(NewDest));
finally
FreeMem(NewDest);
end;
finally
FreeMem(Dest);
end;
finally
FreeMem(Unic);
end;
end;