delphi – CharInSet不适用于非英文字母？

发布时间：2020-12-15 10:14:12 所属栏目：大数据来源：网络整理

导读：我已经将Delphi 2007的应用程序更新到Delphi 2010，除了一个编译好但不工作的语句之外，一切顺利： If Edit1.Text[1] in ['S','?'] then ShowMessage('Found')else ShowMessage('Not Found') 不过，我知道在不会的，所以我改为CharInSet If CharinSet(Edit1.

我已经将Delphi 2007的应用程序更新到Delphi 2010，除了一个编译好但不工作的语句之外，一切顺利：

If Edit1.Text[1] in ['S','?'] then 
  ShowMessage('Found')
else
  ShowMessage('Not Found')

不过，我知道在不会的，所以我改为CharInSet

If CharinSet(Edit1.Text[1],['S','?']) then
  ShowMessage('Found')
else
  ShowMessage('Not Found')

但是当字符串是?时，它始终没有工作，但始终使用S，即使我用AnsiChar投掷edt1.Text1它总是不能工作阿拉伯字母。

我做错了什么，或者这不是CharInSet的工作原理？或者这是CharinSet的错误？

更新：

我的好朋友Issam Ali提出了另一种解决方案：

If CharinSet(AnsiString(edt1.Text)[1],'?']) then

解决方法

CharInSet对于255以上的字符无用。在您的情况下，您应该使用

case C of
    'S','?' : ShowMessage('Found');
  end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!