К примеру, StrRepeat
code_35425.txt
"Но это уже совсем другая история..."(с) и возможно следующий компонент .

Предлагаю прототип Java-функции str_pad -- str_pad.sha

nesco, уж до кучи: если строка длинее установленной, по False/True разбить строку на кусочки, а в последний по необходимости добавить

nesco, ну а почему не так ?
code_35430.txt
------------ Дoбавленo в 11.31:
учитывая правила переноса ?

Что это за любовь к сложению строк в циклах...
code_35431.txt

Я просто сконвертировал готовый код. Можно и как ты предложил, но мне не хотелось бы использовать SetLength, КМК Copy будет предпочтительней. Подождем, что по этому вопросу скажет Netspirit

По поводу? Если работа со строками ведется только с использованием операторов Delphi без сторонних функций, то никаких проблем.

Никакой любви - производственная необходимость, т.к. nesco, в своём примере добавляет не символ, а строку (-. Так ему захотелось.
Netspirit, примерчик придумай для -= без цикла.

А зачем без цикла? Тот же цикл, только Move() вместо присвоения. Если цикла нет и нужно просто несколько раз соединить строки - нет проблем.
Я имел в виду именно генерацию строки, состоящей из указанного количества одинаковых символов/подстрок. В этом месте:

Netspirit, я тоже про это думал.
А вдруг кто-то захочет зеркало:
хотелок дохрена может быть. Я предложил реализовать компонентом SetLength просто процедуру "обрезания" строки до нужного размера, а Вы захотели ещё и увеличение. Увеличить, говорят можно, но только хирургическим путем.

Это не мне захотелось. Так работает стандартная функция str_pad PHP и Java
------------ Дoбавленo в 12.47:

А я предлагаю добавить то, что уже имеется у всех, но не у нас

nesco, это уже другой компонент.
Когда-то, на заре HiAsm, Amper выкладывал компонент, ЕМНИП, который назывался вроде StringOperations. Правда там "смешались вместе кони, люди", но идея была не так уж и плоха.
Нужен такой компонент.
Чтобы можно было и SetLength, и StrRepeat, и PadStr и много чего, что редко требуется, но требуется и из-за чего приходится "доставать" IC или лепить схему из нескольких компонент.

Так, давайте выясним задачи, а то тут что-то всё в одну кучу свалили
1) Та, для которой создана эта тема - "обрезание строки". То-есть, получить первые N символов указанной строки. Эту задачу выполняет у нас Copy. Но поскольку часто требуется получить именно первую часть, то я предлагаю для упрощения туда же добавить два метода doCopyFirst, doCopyLast и закончить тему SetLength. Необходимости "увеличения" строки тут нет.
2) Дополнение строки до указанной длины слева, справа, с обеих сторон указанным символом (строкой).
Для этого нужен отдельный компонент. Называем его StrPad, методы doPadLeft, doPadRight, doPadBoth, точки/свойства Length, FillChar(FillPattern). Можно ещё добавить свойство что делать, если строка превышает Length: обрезать, выдать неизменённую.

Это не относится к оглашенным выше задачам. Не помню, у нас есть что-то типа StrReverse? Тогда бы и это решалось.

Не надо так делать, надо просто сделать один метод doOperation и установку типа преобразования в свойствах. Я предложил прототип уже готового компонента, достаточно его только засунуть в оболочку
------------ Дoбавленo в 13.09:

Нету, но можно сделать

Как хочешь. Но можешь "голосовалку" объявить
------------ Дoбавленo в 13.13:
Как раз выложил в Компонентах.