Я обновил приложение от 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
, даже я выбрал edt1.Text 1 с AnsiChar он всегда не работает арабскими буквами.
Делает что-то не так, или это не работает CharInSet
?, или что ошибка в CharInSet
?
UPDATE:
Мой великий друг Issam Ali предложил другое решение, которое отлично срабатывало:
If CharinSet(AnsiString(edt1.Text)[1],['S','س']) then