CharInSet no funciona con letras que no sean inglesas?

Question

he actualizado una aplicación de Delphi 2007 para Delphi 2010, todo fue bien, excepto una declaración que compila bien, pero no funcionaba, que es:

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

Sin embargo, sabía que en no, por lo que cambió a CharInSet

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

pero nunca funcionó cuando la cadena es س, pero siempre funciona con S, yo tire la edt1.Text 1 con AnsiChar siempre no funciona letras árabes.

¿Estoy haciendo algo mal, o no funciona CharInSet ?, ¿o es un error en CharinSet?

ACTUALIZACIÓN:

mi gran amigo Issam Ali ha sugerido otra solución que ha funcionado bien, ya que:

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

Answer 1

CharInSet es inútil para los caracteres anteriores 255. En su caso se debe utilizar

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

Answer 2

se ha marcado la codificación del archivo fuente a UTF-8 (clic derecho para abrir el Menú de contexto)? (El valor por defecto es ANSI IIRC, que no iba a funcionar.)

Answer 3

Esto sucede porque set of char tipo estructurado (limitado a 256 elementos máximo) no es compatible con Unicode en absoluto. Es decir, cualquier carácter Ord(ch) > High(AnsiChar) se trunca en el constructor del conjunto y se emite una advertencia W1061 sobre el estrechamiento de WideChar a AnsiChar. Mire el siguiente caso de prueba:

{ naturally, fails, emits CharInSet() suggestion } 
    Result := 'س' in ['S','س']; 

    { fails because second argument is set of AnsiChar } 
    Result := CharInSet(
    'س', 
    ['S','س'] 
); 

    { workaround for WideChar in AnsiCharSet, fails } 
    Result := WideStrUtils.InOpSet(
    'س', 
    ['S','س'] 
); 

    { a syntactical workaround, which finally works } 
    Result := WideStrUtils.InOpArray(
    'س', 
    ['S','س'] 
); 

    if Result then 
    ShowMessage('PASS') 
    else 
    ShowMessage('FAIL'); 

Answer 4

Además.

Los conjuntos están limitados a valores ordinales de 256 elementos. Entonces AnsiChar se ajusta y (Unicode) Char no encaja. Puede usar CharInSet para portar versiones pre-unicode de Delphi a las versiones unicode. Debido a la limitación establecida, los conjuntos ya no son muy útiles con Chars.

La razón de esto es que los conjuntos se implementan como máscaras de bits. Usted es libre de implementar su propia versión de un conjunto. Por ejemplo:

type 
    TSet<T> = class 
    public 
    procedure Add(const AElem: T); 
    function InSet(const AElem: T): Boolean; 
    end; 

Answer 5

Uso TCharHelper.IsInArray de la siguiente manera:

if Edit1.Text[1].IsInArray(['S','س']) then 
    ShowMessage('Found') 
else 
    ShowMessage('Not Found');