Free Pascal: обнаружить "это слово символ" для WideChar

Question

Я использую код

Result:= 
((ch>='0') and (ch<='9')) or 
((ch>='a') and (ch<='z')) or 
((ch>='A') and (ch<='Z')) or 
(ch='_'); 

он обнаруживает ОК AnsiChar; как определить «если символ или цифра» для WideChar?

Answer 1

Я думаю, что нет простого способа решить эту проблему. Каково ваше определение письма? Ω (омега) - это письмо? это просто символ? Вам придется вручную решить, что такое письмо, а что нет. Вы можете сделать заявление о большом случае, которое определяет, является ли символ буквенным числом или нет ...

function is_alpha_num(ch : widechar) : boolean; 
begin 
    case ch of 
    #$0030..#$0039, // '0'..'9'             
    #$0041..#$005A, // 'A'..'Z'             
    #$0061..#$007A, // 'a'..'z'             
    // need to define the rest here...           
    #$FF21..#$FF3A // 'Ａ'..'Ｚ'             
    : result := true; 
    else result := false; 
    end; 
end;