WideString(Trim(str))[1] not in['你','我','他']怎么这样不可以啊
解决方案 »
- 退出功能的 close 执行不了,提示 incomplete zip file
- 关于物料的工序管理和工艺路线怎样设计?
- 写的一些过程,函数之类的东西.怎样将其编译成.dll,怎么调用?
- 缺钱TextBox 一个框同时显示多国字符问题(高分急,目前不能正常显示)
- 新人报道!请多指教!
- 關於:while的一個問題,請進入。在線。。。。。。
- 20分,请帮帮忙。(关键字'where'附近有语法错误).
- 请求帮助: 分布式监控系统设计
- 关于在韩文XP下显示Delphi编写的中文程式的解决方法
- 一个非常有新意的想法,求其设计思路,有兴趣者请进
- 请问如何把我edit.text的文字内容输入到打开的记事本或是任何可以输入文字的地方啊
- 注册表下表项名称的读取?
也会出错。想别的办法吧。
str: string;
begin
str := '我路过';
if not (WideString(Trim(str))[1] in[WideString('你')[1], WideString('我')[1],
WideString('他')[1]]) then
ShowMessage('接分');
end;
var
str: WideString;
begin
str := '又是我路过';
if str <> '' then
case str[1] of
#20320, #25105, #20182: ;
//你 我 他 //设置属性Label1.Caption = '你 我 他'; 复制Label1控件到代码编辑器中,就可以知道汉字的Unicode
else ShowMessage('接分');
end;
end;
if i in [256, 257] then ;
//Unicode是双字节相当于Word 0-65535