Привет. Моя задача такова: при вводе текста в поле ввода, проверять допустимы ли введенные символы.
Код:
//где-то вверху
const
charters = ['A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M',
'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', 'a', 'b',
'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q',
'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z', '1', '2', '3', '4', '5', '6',
'7', '8', '9', '0', '-', '_'];
//после implementation
function TMainForm.isEditCorrect(Sender: TEdit): Boolean;
var
text: String;
i: Integer;
begin
text := TEdit(Sender).text;
Result := True;
for i := 1 to text.Length do
begin
if not(text[i] in charters) then
Result := False;
end;
if text.CountChar('-') > 1 then
Result := False;
end;
Все хорошо. На первый взгляд. Но: хоть на винде это и работает, на андроиде это НЕ работает и компилятор при сборке как на винду, так и под андроид выдает предупреждение:
Цитата
[DCC Warning] main.pas(150): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit.
Я этому предупреждению внял, и изменил свой код, на этот:
if not CharInSet(text[i], charters) then
На винде все ка как работало так и работает, предупреждение из компилятора пропало. Но: на андроиде это как не работало так и не работает, (результат функции всегда false), и компилятор выдает другое предупреждение:
Цитата
[DCC Warning] main.pas(144): W1000 Symbol 'CharInSet' is deprecated: 'Use TCharHelper functionality'
Вопрос
sviat9440
Привет. Моя задача такова: при вводе текста в поле ввода, проверять допустимы ли введенные символы.
Код:
Все хорошо. На первый взгляд. Но: хоть на винде это и работает, на андроиде это НЕ работает и компилятор при сборке как на винду, так и под андроид выдает предупреждение:
Я этому предупреждению внял, и изменил свой код, на этот:
if not CharInSet(text[i], charters) then
На винде все ка как работало так и работает, предупреждение из компилятора пропало. Но: на андроиде это как не работало так и не работает, (результат функции всегда false), и компилятор выдает другое предупреждение:
Что ему от меня надо?
Ссылка на комментарий
9 ответов на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.