W1050 WideChar reduced to byte char in set expressions.

[Человек_Борща]

Доброго времени суток!

Delphi негодует

W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit.

...по поводу кода:

procedure TRuleEditForm.AffinityEditKeyPress(Sender: TObject; var Key: Char);
begin
  if not(Key in ['0' .. '9', ',',Chr(8)]) then
    Key := #0;
end;

Синим выделил причину негодования.

Данный код призывает использовать только символы от 0 до 9, знак запятой, и посимвольное удаление backspace(он же chr(8)).

Вопрос:
Как именно применить CharInSet функцию

type
{ Standard Character set type }
  TSysCharSet = set of AnsiChar;
...
function CharInSet(C: WideChar; const CharSet: TSysCharSet): Boolean;
begin
  Result := C in CharSet;
end;

...и какой диапазон указать во втором её параметре?

Спасибо за внимание!

[veniside]

причину негодования

причина гораздо проще: елементами множества не могут буть значения, которые не вписываются в байт по диапазону. Т.е. скомпилировать такое не получится:

if (i in [256]) then ...

соответсвенно и WideChar урезается до AnsiChar, о чем компилятор и предупреждает.

какой диапазон указать во втором её параметре?

ну это очевидно:

if (not CharInSet(Key, ['0' .. '9', ',',Chr(8)])) then ...

менее очевидно, что такой финт ушами просто успокаивает компилятор, но никак не решает исходную проблему: множество не может содержать элементы, не вписывающиеся в байт. Т.е. если у нас в Key будут юникодные символы, которые не отображаются на ANSI множество, никакой CharInSet() не поможет. Только case.

[Человек_Борща]

Спасибо, проблему понял.
эмм Chr(8) это код клавиши backspace, она имеет юникодность?

[veniside]

да, код 0008, BACKSPACE

[Человек_Борща]

А как быть, если CharInSet даст False?

[Аватар]

А #8 вместо chr(8) не катит в обоих случаях?

[Человек_Борща]

Думаю разницы не будет.
Chr и вернет мне #8. Так сделано для удобства, компилятор заменит вызов #8 на Chr(8) т.к. он не знает, откуда взять символ #8.

[veniside]

да, кстати, проблема не с той стороны, что я думал

пока символьные константы вписываются в ANSI, из них без проблем строится множество.

а если не вписываются, то компилятор выдает другое предупреждение:

W1061 Narrowing given WideChar constant (#$xxxx) to AnsiChar lost information

в исходном коде проще привести Key к AnsiChar:

if not(AnsiChar(Key) in ['0' .. '9', ',',Chr(8)]) then

чем переписывать под CharInSet(), смысла в которой вобще наблюдается.

[Человек_Борща]

Благодарю, за решение.