CharInSet không hoạt động với các chữ cái không phải tiếng Anh?

Question

Tôi đã cập nhật một ứng dụng từ Delphi 2007 đến Delphi 2010, tất cả mọi thứ diễn ra tốt đẹp, ngoại trừ một tuyên bố rằng biên soạn tốt nhưng không được làm việc đó là:

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

Tuy nhiên, tôi biết rằng trong sẽ không, vì vậy tôi đã thay đổi để CharInSet

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

nhưng nó không bao giờ làm việc khi chuỗi là س, nhưng luôn luôn làm việc với S, thậm chí tôi cast edt1.Text 1 với AnsiChar nó luôn luôn không hoạt động chữ tiếng Ả rập.

Làm bất cứ điều gì sai, hoặc nó không phải là cách CharInSet hoạt động ?, hoặc đó là một lỗi trong CharinSet?

UPDATE:

lớn Bạn tôi Issam Ali đã gợi ý một giải pháp mà đã làm việc tốt vì nó:

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

Answer 1

CharInSet là vô ích cho các nhân vật trên 255. Trong trường hợp của bạn, bạn nên sử dụng

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

Answer 2

Bạn đã thiết lập mã hóa của file nguồn của bạn để UTF-8 (click chuột phải để mở trình đơn ngữ cảnh)? (Mặc định là ANSI iirc, trong đó sẽ không hoạt động.)

Answer 3

Điều này xảy ra bởi vì set of char cấu trúc loại (giới hạn 256 yếu tố tối đa) không hỗ trợ Unicode. Nghĩa là, bất kỳ ký tự nào Ord(ch) > High(AnsiChar) bị cắt ngắn trong hàm tạo và cảnh báo W1061 về việc thu hẹp WideChar thành AnsiChar đang được phát ra. Xem thử nghiệm sau:

{ 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

Ngoài ra.

bộ được giới hạn ở các giá trị thứ tự của 256 phần tử. Vì vậy, AnsiChar phù hợp và (Unicode) Char không phù hợp. Bạn có thể sử dụng CharInSet để chuyển các phiên bản trước unicode của Delphi thành các phiên bản unicode. Do giới hạn đã đặt, các bộ không phải là vô cùng hữu ích nữa với Chars.

Lý do đằng sau điều này, là các bộ được triển khai dưới dạng bitmap. Bạn được tự do triển khai phiên bản của riêng bạn. Ví dụ:

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

Answer 5

Sử dụng TCharHelper.IsInArray như sau:

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