Проверка последовательных букв в строке на Pascal с использованием клавиатуры QWERTY

Delphi , Синтаксис , Пароли

В задаче, представленной в контексте, необходимо реализовать функцию на языке Pascal, которая будет проверять, содержит ли строка последовательность из трех подряд идущих букв, соответствующих одной из трех частей клавиатуры QWERTY. Клавиатура QWERTY разделена на три зоны: первая включает в себя буквы QWERTYUIOP, вторая - ASDFGHJKL, а третья - ZXCVBNM.

Решение проблемы

Для решения поставленной задачи мы можем использовать функцию HasThreeConsecutiveLetters, которая принимает строку Str в качестве параметра и возвращает булево значение True, если в строке присутствует последовательность из трех букв, соответствующих одной из частей клавиатуры QWERTY, иначе возвращает False.

function HasThreeConsecutiveLetters(const Str: string): Boolean;
const
  QwertyLetters: array[0..2] of string = (
    'QWERTYUIOP',
    'ASDFGHJKL',
    'ZXCVBNM'
  );
var
  I, J, K: Integer;
  S: String;
begin
  Result := False;
  S := AnsiUpperCase(Str);
  for I := 1 to Length(S) - 2 do // Вычитаем 2, чтобы проверить три буквы
  begin
    for J := Low(QwertyLetters) to High(QwertyLetters) do
    begin
      K := Pos(S[I], QwertyLetters[J]);
      if (K > 0) and
         ((K + 2) <= Length(QwertyLetters[J])) and
         (Copy(S, I, 3) = Copy(QwertyLetters[J], K, 3)) then
      begin
        Result := True;
        Exit;
      end;
    end;
  end;
end;

Использование функции в коде:

var
  input: string;
begin
  input := '...'; // Замените '...' на проверяемую строку
  if HasThreeConsecutiveLetters(input) then
    // Действие, если последовательность найдена
  else
    // Действие, если последовательность не найдена
end;

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

В представленном коде функция HasThreeConsecutiveLetters сначала приводит входную строку к верхнему регистру для упрощения сравнения. Затем она проходит по каждому символу строки и проверяет, не образуют ли три последовательных символа строку, которая эквивалентна трем последовательным символам в одном из массивов, содержащих строки, соответствующие клавиатуре QWERTY.

Альтернативный ответ

В контексте альтернативного ответа представлен тот же функционал, но без дополнительных примечаний. Разработчики могут использовать различные методы оптимизации, например, уменьшение количества переборов циклов, улучшение обработки исключений при работе с большими строками, но основная идеология остается неизменной.

Используя предложенный пример кода, разработчики на Delphi могут быстро реализовать проверку последовательности букв в строке, что может быть полезно в различных приложениях, где требуется анализ текста, связанный с клавиатурой QWERTY.

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

Необходимо создать функцию на языке Pascal, которая проверяет, содержит ли строка последовательность из трех подряд идущих букв, соответствующих одной из трех частей клавиатуры QWERTY.

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

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

:: Главная :: Пароли ::