Как правильно использовать оператор in для проверки символов строки в Free Pascal

Delphi , Синтаксис , Ошибки и Исключения

При работе с языками программирования, такими как Free Pascal, важно понимать особенности использования встроенных операторов и функций. Оператор in в Free Pascal предназначен для проверки наличия элемента в наборе данных. В контексте строк и символов, этот оператор требует особого внимания, поскольку он работает с одиночными символами, а не со строками.

Описание проблемы

Разработчик столкнулся с ошибкой "Operator is not overloaded" при попытке использования оператора in для проверки символов строки. Ошибка возникала в следующей части кода:

IF not (Ucase in Upper) or (Lcase in Lower) or (Num in Int) then

Пример кода, вызывающего ошибку

Program CheckChar;
var
  UserID, LCase, UCase, Num : String;
  readkey : char;
  L  : Integer;
CONST
  Upper = ['A'..'Z'];
  Lower = ['a'..'z'];
  Int   = ['0'..'9'];
BEGIN
  Write('Enter UserID ');Readln(UserID);
  Ucase := Copy(UserID,1,1);
  LCase := Copy(UserID,2,1);
  Num   := Copy(UserID,3,2);
  L     := Length(UserID);
  While L = 6 Do
  Begin
    IF not (Ucase in Upper) or (Lcase in Lower) or (Num in Int) then
    Begin
      Writeln('Invalid Input');
    End;
  Else
    Writeln('Input is valid');
  End;
readln(readkey);
End.

Подтвержденный ответ

Ошибка возникает из-за того, что оператор in предназначен для работы с одиночными символами, а не со строками. В коде, представленном разработчиком, переменные Ucase, Lcase и Num являются строками, содержащими по одному символу, но оператор Copy используется для копирования этих символов, что не требуется. Вместо этого можно использовать индексацию строки, чтобы получить одиночный символ.

Исправленный код

Program CheckChar;
var
  UserID : String;
  readkey : char;
  invalid: boolean;
CONST
  Upper = ['A'..'Z'];
  Lower = ['a'..'z'];
  Int   = ['0'..'9'];
BEGIN
  Write('Enter UserID ');
  Readln(UserID);
  IF Length(UserID) <> 6 THEN
  Begin
    Writeln('Invalid Input Length');
    Exit;
  End;
  invalid := not (UserID[1] in Upper) or
             not (UserID[2] in Lower) or
             not (exists in UserID[3..5] do (in Int));
  IF invalid THEN
    Writeln('Invalid Input')
  ELSE
    Writeln('Input is valid');
Readln(readkey);
END.

Комментарии

Оператор in предназначен для проверки одиночных символов, а не целых строк. Использование цикла While в исходном коде было избыточным, так как проверялось только шесть символов. В исправленном коде цикл убрали, так как достаточно проверить длину строки и затем обратиться к каждому символу напрямую.

Заключение

При работе с оператором in важно помнить, что он работает с одиночными символами. Используйте индексацию строки для доступа к отдельным символам, а не копирование с помощью функции Copy. Это позволит избежать ошибки "Operator is not overloaded" и обеспечит корректную работу программы.

Создано по материалам из источника по ссылке.

Пользователь столкнулся с проблемой использования оператора `in` для проверки символов строки в языке программирования Free Pascal, что привело к ошибке при попытке сравнения строк с наборами символов.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Ошибки и Исключения ::