Добавить символы(строку) в строку

← →
Свой (2007-12-13 20:24) [0]

Уважаемые знакоки Делфи подскажите как сделать а то непридумаю никак
есть строка "привет" (ее длина 6) если она короче 100 символов мне нужно добавить в нее допустим 94 символа (одинаковых для начала)
Вот занчит это как пример! Мне нужно сделать проверку длины и соответственно вставить определенное количество символов, как?

скока надо вставить символов=100-length("привет")
а дальше как?

← →
Свой (2007-12-13 20:25) [1]

т.е. заполнить остальное допустим буквой "К"

← →
Virgo_Style © (2007-12-13 20:30) [2]

о циклах слышал?

← →
Свой (2007-12-13 20:34) [3]

аа все
for i:=1 to 96 do
привет=ля+"Л"
пасибо
сижу торможу уже просто

← →
Amoeba © (2007-12-13 21:00) [4]

Задача решается в одну строчку стандартными средствами:

Insert(StringOfChar("K", 94), Position);

И не слушай, что тебе насоветовали насчет циклов.

← →
Palladin © (2007-12-13 21:07) [5]

Function ExpandStr(Const s:String;c:Char;l:Integer):String; Begin SetLength(Result,l); Move(s[1],Result[1],Length(s)); FillChar(Result[Length(s)+1],l-Length(s),c); End; ShowMessage(ExpandStr("Привет","К",100));

← →
Anatoly Podgoretsky © (2007-12-13 22:25) [6]

> Свой (13.12.2007 20:24:00) [0]

Как вставить?

Так - П******р*****и***в*******е*т***********************************

← →
Anatoly Podgoretsky © (2007-12-13 22:26) [7]

> Свой (13.12.2007 20:34:03) [3]

Нифигасе себе, при наличии функций в Дельфи еще и циклом добавлять символы, тем более что еще и неправильно.

← →
Anatoly Podgoretsky © (2007-12-13 22:27) [8]

> Amoeba (13.12.2007 21:00:04) [4]

Не шедевр, про LeftStr слышал?

> Anatoly Podgoretsky © (13.12.07 22:27) [8]
>
> > Amoeba (13.12.2007 21:00:04) [4]
>
> Не шедевр, про LeftStr слышал?

А как же.

Я дал решение для общего случая, в исходном вопросе явно ведь не сказано, куда добавлять - в начало, середину или конец.

> Amoeba (13.12.2007 22:43:09) [9]

Я про твой пример говорю, ты в конец добавлял и почему то использовал цифровой литерал (94), когда с LeftStr нет никакой нужды в этом, какая бы строка не была, хоть 6 символов, хоть 17.

> Anatoly Podgoretsky © (13.12.07 22:45) [10]
>
> > Amoeba (13.12.2007 22:43:09) [9]
>
> Я про твой пример говорю, ты в конец добавлял и почему то
> использовал цифровой литерал (94), когда с LeftStr нет никакой
> нужды в этом, какая бы строка не была, хоть 6 символов,
> хоть 17.
>

Анатолий, Вы невнимательны. В моем примере вставляется 94 символа "K" в некую произвольную позицию (внутри строки) задаваемую параметром Position. Ничего именно в конец я не добавлял.

Добавить символы(строку) в строку Найти похожие ветки