Consider using 'CharInSet' function in 'SysUtils' unit.

[Михаил Юрьевич]

В данных кодах вот такое предупреждение
[dcc64 Warning] Unit2.pas(113): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit.

что за предупреждение разобрался, а вот как исправить не пойму, куда вставить CharInSet ?

 if IsNum and not (S[i] in Dd) then

 if (i = Len) or (S[i + 1] in D) then

if not  (S[i] in D) then

[p51x]

Сообщение от Михаил Юрьевич

что за предупреждение разобрался

Значит не разобрались. Вы хоть описание функции CharInSet прочитали? - Нет. Тогда б вопросов не было, что вместо in

[Михаил Юрьевич]

Сообщение от p51x

Значит не разобрались. Вы хоть описание функции CharInSet прочитали? - Нет. Тогда б вопросов не было, что вместо in

Спасибо что помог, а то я не догодался прочитать

[northener]

Сообщение от p51x

Вы хоть описание функции CharInSet прочитали?

А нужно ли его вообще читать? Имхо эта функция придумана и реализована троешником. И фактически является сильно недоношенным ребёнком, который существует, но не живёт.
Михалыч, забудь про множества при работе с символами.