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

Delphi , Синтаксис , Текст и Строки

Автор: DiVo
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> 
Input - строка для повторения
Rep - количество повторений

Строка на выходе это входная строка повторенная Rep раз.

Зависимости: Стандартные модули
Автор:       Ru, DiVo_Ru@rambler.ru, Одесса
Copyright:   DiVo 2002 creator Ru (по мотивам функции Str из Word Basic)
Дата:        18 ноября 2002 г.
***************************************************** }

function MulStr(Input: string; Rep: integer): string;
var
  i: integer;
begin
  for i := 0 to Rep - 1 do
    result := result + Input;
end;

Пример использования:

s1 := 'Привет';
s := MulStr(s1, 3);

// результат:
s := 'ПриветПриветПривет';

Привет!

Вот перевод текста на русский язык:

Функция MulStr

Функция MulStr принимает два параметра:

1. Input: строка, которую нужно повторить.
2. Rep: целое число, указывающее количество раз, которое нужно повторить входную строку.

Функция возвращает новую строку, которая является результатом повторения входной строки Rep раз.

Имплементация

Внутри функции MulStr мы используем цикл for, чтобы выполнить операцию Rep раз. В каждой итерации цикла мы конкатенируем строку Input к переменной result с помощью оператора +.

Переменная result инициализируется пустой строкой ('') и модифицируется в каждой итерации цикла. К концу цикла result будет содержать повторенную входную строку.

Пример использования

В разделе примера использования мы демонстрируем, как использовать функцию MulStr, выполнив следующие шаги:

1. Назначаем строковое литеральное значение 'Привет' переменной s1.
2. Вызываем функцию MulStr с аргументами s1 и 3, присваивая результат переменной s.

Вывод этого примера - 'ПриветПриветПривет', что является повторенной входной строкой три раза.

Альтернативное решение

Если вам нужно более компактное решение, вы можете использовать цикл с одиночным оператором присваивания:

function MulStr(Input: string; Rep: integer): string;
begin
  Result := Input + Repeat(' ', Rep - 1) + Input;
end;

В этом реализации мы используем функцию Repeat для создания строки пробелов (' ') повторенной Rep-1 раз, и затем конкатенируем эту строку с входной строкой с помощью оператора +. Результат присваивается переменной Result.

Однако стоит отметить, что это альтернативное решение имеет слегка отличающееся поведение при Rep равном 0 или 1, так как оно возвращает пустую строку или оригинальную входную строку соответственно. Если вам нужно, чтобы эти краевые случаи имели иное поведение, вы может быть лучше оставить исходный реализацию.

Статья представляет собой код на языке Delphi, который позволяет повторить заданную строку определенное количество раз.

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

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

:: Главная :: Текст и Строки ::