есть конструкция из кода на Delphi
- Код: Выделить всё
if S[Length(S)] in ['A'..'Z', 'a'..'z', 'А'..'Я', 'а'..'я', ' '] then
Lazarus при компиляции ругается на 'A' русскую
CTCV.pas(2657,43) Error: Incompatible types: got "WideChar" expected "Char"
но попытка привести S[Length(S)] и к WideChar и даже к Char успеха не приносят.
Хотя такая конструкция после приведения типа стала проходить , а раньше ругался также Error: Incompatible types: got "WideChar" expected "Char"
- Код: Выделить всё
case WideChar(UpCase(Str[i])) of
'А': Str[i] := 'A';
'В': Str[i] := 'B';
'С': Str[i] := 'C';
'Е': Str[i] := 'E';
'Н': Str[i] := 'H';
'К': Str[i] := 'K';
'М': Str[i] := 'M';
'О': Str[i] := 'O';
'Р': Str[i] := 'P';
'Т': Str[i] := 'T';
'Х': Str[i] := 'X';
'У': Str[i] := 'Y';
end;
В чем может быть здесь проблема? Подскажите, пожалуйста.