Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Добавить символы(строку) в строку [D7, XP]

Свой © (2007-12-13 20:24:00)
Уважаемые знакоки Делфи подскажите как сделать а то непридумаю никак
есть строка "привет" (ее длина 6) если она короче 100 символов мне нужно добавить в нее допустим 94 символа (одинаковых для начала)
Вот занчит это как пример! Мне нужно сделать проверку длины и соответственно вставить определенное количество символов, как?

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

Amoeba (2007-12-14 02:15:00) [1]

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

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

Anatoly Podgoretsky (2007-12-13 22:45:00) [2]
> Amoeba (13.12.2007 22:43:09) [9]

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

Amoeba (2007-12-13 22:43:00) [3]

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

А как же.

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

Anatoly Podgoretsky (2007-12-13 22:27:00) [4]
> Amoeba (13.12.2007 21:00:04) [4]

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

Anatoly Podgoretsky (2007-12-13 22:26:00) [5]
> Свой (13.12.2007 20:34:03) [3]

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

Anatoly Podgoretsky (2007-12-13 22:25:00) [6]
> Свой (13.12.2007 20:24:00) [0]

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

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

Palladin (2007-12-13 21:07:00) [7]
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));

Amoeba (2007-12-13 21:00:00) [8]
Задача решается в одну строчку стандартными средствами:

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

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

Свой (2007-12-13 20:34:00) [9]
аа все
for i:=1 to 96 do
привет=ля+"Л"
пасибо
сижу торможу уже просто

Virgo_Style (2007-12-13 20:30:00) [10]
о циклах слышал?

Свой (2007-12-13 20:25:00) [11]
т.е. заполнить остальное допустим буквой "К"

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »