|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
25.11.2013, 07:23 | #11 |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Можно так (для FPC (для делфи убрать uses SysUtils))
Код:
Вся беда в том, что в instr может оказаться этот самый ch... |
25.11.2013, 08:46 | #12 | |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
Код:
Цитата:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
|
25.11.2013, 21:14 | #13 |
Пользователь
Регистрация: 24.11.2013
Сообщений: 21
|
Спасибо большое!
|
26.11.2013, 22:19 | #14 |
Пользователь
Регистрация: 24.11.2013
Сообщений: 21
|
А можно сделать так, чтобы изменялась сама строка s1, в которую вставляем подстроку, а не buf? Предыдущий вариант, конечно, подходит, но с меня еще и так требуют.
|
26.11.2013, 23:10 | #15 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
Вы, наверное, хотите, чтобы дополнительная переменная (строка buf) не использовалась, да? |
|
26.11.2013, 23:12 | #16 | |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Цитата:
Я бы использовал while и после вставки Inc (i, Length(s2)) (а в конце while идет уже Inc(i)).. |
|
26.11.2013, 23:43 | #17 |
Пользователь
Регистрация: 24.11.2013
Сообщений: 21
|
Спасибо, попробую)
|
09.01.2014, 12:39 | #18 |
Пользователь
Регистрация: 24.11.2013
Сообщений: 21
|
Код:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ввести строку и после каждого символа "q" ставить "**" | karamzin | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 25.11.2012 02:57 |
Как вывести строку, которая состоит из аргументов командной строки так, чтобы каждое слово выводилось без первого символа | Mik2012 | Общие вопросы C/C++ | 1 | 31.10.2012 00:29 |
MinLines(f), которая вставляет строку минимальной длины в начало и конец файла | ArtS | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 24.05.2009 19:13 |
Записать текст лесенкой(по одному слову в строке),вставляя пустую строку после каждого четверостишья | klindk | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 27.11.2008 14:34 |