delphi 中如何将gbk转换成unicode并保存下来？

mbzdh 2005-05-07 09:30:38

如题

...全文

276 5 打赏收藏举报

写回复

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

zhousan 2005-05-07

打赏
举报

回复

我是菜鸟，来帮你顶

mbzdh 2005-05-07

打赏
举报

回复

不会吧，过五一就没有人上csdn了

僵哥 2005-05-07

打赏
举报

回复

不过不知道楼主所谓的保存下来具体指如何保存了。
不过WideString与AnsiString的操作没多少区别，唯一区别在于WideChar占两个字节(Byte)，而AnsiChar占一个字节(Byte).

僵哥 2005-05-07

打赏
举报

回复

function StringToWideStringCHS(const S: AnsiString): WideString;
var
InputLength,
OutputLength: Integer;
begin
InputLength := Length(S);
OutputLength := MultiByteToWideChar(936, 0, PAnsiChar(S), InputLength, nil, 0);
SetLength(Result, OutputLength);
MultiByteToWideChar(936, 0, PAnsiChar(S), InputLength, PWideChar(Result), OutputLength);
end;

mbzdh 2005-05-07

打赏
举报

回复

csdn现在这么人气不旺阿，还是我说得不清楚

http://parad1se.bokee.com/6250501.html delphi 编码转换 unicode gbk big5 以下代码在DELPHI 7上调试通过，主要使用了api函数中MultiByteToWidechar function UnicodeEncode(Str:string;CodePage:integer):WideString;

delphi xe下支持Unicode编码方式 procedure TForm1.btn1Click(Sender: TObject); var s : string; s2: AnsiString; begin s := '你好'; s2 := s; Caption := s2; end; s dump $60 $4F $7D $59 s2 dump $C4 $E3

function UniCodetoGBK(S : String):String; Var I,j: Integer; str,ps,regmsg: string; reg: TPerlRegEx; begin try reg := TPerlRegEx.Create(nil); regmsg := '\\u[A-Za-z0-9]{4}'; reg.Re...

为了解决上述问题，开发者社区推出了这个组件包。它提供了基于WideString的 Unicode 控件，包括等，能够正确处理 Unicode 字符的输入、显示和存储。的主要功能包括：功能说明Unicode 控件提供等控件，支持 Unicode 字符字符编码转换内部支持 ANSI 与 Unicode 之间的自动转换文件读写支持提供 Unicode 文本文件的读写函数跨平台兼容。

//delphi 7 Delphi汉字简繁体转换代码unit ChineseCharactersConvert; interface uses Classes, Windows; type TGBBIG5Convert = class(TObject) public class function BIG5ToGB(BIG5Str : String): AnsiString;

语言基础/算法/系统设计

16,741

社区成员

33,233

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章