Перейти к содержанию
Fire Monkey от А до Я
  • 0

Проверка валидности символов


sviat9440

Вопрос

Привет. Моя задача такова: при вводе текста в поле ввода, проверять допустимы ли введенные символы.

Код:

//где-то вверху
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'

Что ему от меня надо?

Ссылка на комментарий

Рекомендуемые сообщения

  • 0
  • Модераторы
function TForm11.isEditCorrect(Sender: TEdit): Boolean;
var
  text: String;
  i: Integer;
  aCh: Char;
begin
  text := TEdit(Sender).text;
  Result := True;
  for i := {$IFNDEF MSWINDOWS}0{$ELSE}1{$ENDIF} to text.Length do
  begin
    aCh := text[i];
    if not(aCh in charters) then
      Result := False;
  end;
  if text.CountChar('-') > 1 then
    Result := False;
end;

UPDATE: код не отрабатывает на андроиде

Изменено пользователем ZuBy
Ссылка на комментарий
  • 1
  • Модераторы
2 минуты назад, sviat сказал:

На андроиде значение функции по прежнему всегда false

function TForm11.isEditCorrect(Sender: TEdit): Boolean;
var
  text: String;
  i: Integer;
  aCharArr: TCharArray;
begin
  text := TEdit(Sender).text;

  aCharArr := text.ToCharArray;
  Result := True;
  for i := Low(aCharArr) to High(aCharArr) do
  begin
    if not(aCharArr[i] in charters) then
      Result := False;
  end;
  if text.CountChar('-') > 1 then
    Result := False;
end;

вот так правильно

Ссылка на комментарий

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...