社区
Delphi
帖子详情
char 和widechar之间怎么转换?
xiaokun111
2008-11-05 02:11:01
char(97) = widechar(97)
char(213) <> widechar(213)
widechar(???) ,???怎么写能够和char(213)相等?
...全文
556
6
打赏
收藏
char 和widechar之间怎么转换?
char(97) = widechar(97) char(213) widechar(213) widechar(???) ,???怎么写能够和char(213)相等?
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
tjg5202
2008-11-05
打赏
举报
回复
学习。。。。。。。
fangsp
2008-11-05
打赏
举报
回复
char(128)以后 为不见字符
xiaokun111
2008-11-05
打赏
举报
回复
I= 109 m
I= 110 n
I= 111 o
I= 112 p
I= 113 q
I= 114 r
I= 115 s
I= 116 t
I= 117 u
I= 118 v
I= 119 w
I= 120 x
I= 121 y
I= 122 z
I= 123 {
I= 124 |
I= 125 }
I= 126 ~
I= 127
I= 128
I= 129
I= 130
I= 131
I= 132
I= 133
I= 134
I= 135
I= 136
I= 137
在widechar(128)以后都为奇怪字符 ,而char(128)以后都为空值,我们假设char(135)这个值是正确的,widechar(135) <> char(135)就认为不正确
因为关系到加密算法,2009 和 2006编译同一段代码后运行结果不一样,但2006编译为正确的,这个问题怎么解决? 返回值为string,不能更改
function _Encrypt(const S: string): string;
var I: byte; Key: Word;
begin
Key := cKey;
SetLength(result, length(s));
for I := 1 to Length(S) do
begin
Result[I] := Char(byte(S[I]) xor (Key shr 8));
try Key := (byte(Result[I]) + Key) * cKey1 + cKey2; except end;
end;
end;
fangsp
2008-11-05
打赏
举报
回复
首先
WideChar占两个字节
Char占一个字节
在ASC码值小于128的情况下
Char(i) = WideChar(i)
但是当ASC值大于128的时候
Char(i) <> WideChar(i)
僵哥
2008-11-05
打赏
举报
回复
WideChar和Char(AnsiChar)都是字符.关键要看你是需要在字符的内码相等还是字符相同?
如果要内码相等的话,都强制转成WORD之类的就可以比较了,否则就需要都转成为widechar,当然不是使用WideChar(Char)这样的强制转换.而是通过编码映射.在众多情况下可以使用:
var
wc,wc1: WideChar;
ac: AnsiChar;//Char
begin
ac := #97;
wc := 'a';//这里就不写内码了,其实也是97,多字节字符则会不一样
wc1 := ac;
ShowMessage(BoolToStr( wc1 = wc,true));
end;
tobelost
2008-11-05
打赏
举报
回复
StringToWideChar
MultiByte(ASCII)字符串与W
ide
Char
(UNICODE)字符串
字符串的MultiByte(ASCII)16进制形式与W
ide
Char
(UNICODE)16进制形式的互换小工具。
ASCLL和Unicode演示代码
该代码演示了ASCLL和Unicode编码的内存编码和
转换
,对于学习两种编码方式细节有帮助,详情查看博客。
字符串与十六进制相互
转换
delphi源码
字符串与十六进制相互
转换
delphi源码,用于包括汉字,字母数字,特殊字符与十六进制进行相互
转换
。
Delphi根据区位码
转换
成汉字..rar
Delphi根据区位码
转换
成汉字..rar
Delphi与C++数据类型对照表
Delphi与C++数据类型对照表,大部分的数据类型都有,方便查阅。
Delphi
5,928
社区成员
262,931
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章