我已经将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的错误？
更新：
If CharinSet(AnsiString(edt1.Text)[1],'س']) then
解决方法
CharInSet对于255以上的字符无用。在您的情况下，您应该使用
case C of
'S','س' : ShowMessage('Found');
end;