Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.05.2018, 20:45   #1
kladsss
Пользователь
 
Регистрация: 22.10.2017
Сообщений: 50
По умолчанию Удалить текст между слов Delphi XE

Ребята помогите решить такую задачу:

Есть текст, пример текста:
Primer test1 2020 test2 Primer test1 2040 test2 Primer
Primer test1 2070 test2 Primer test1 2080 test2 Primer test1 2090 test2 Primer test1 2010 test2 Primer

Удалить текст между словами - test1 и test2

То есть на выходе получиться:
Primer Primer Primer
Primer Primer Primer Primer Primer

П/C: Текст между словами test1 и test2 разный - в каждой строке. Постоянно повторяются только слова - между которыми нужно удалить текст (то есть test1 и test2).
kladsss вне форума Ответить с цитированием
Старый 18.05.2018, 00:43   #2
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 18.05.2018, 12:45   #3
kladsss
Пользователь
 
Регистрация: 22.10.2017
Сообщений: 50
По умолчанию

Цитата:
Сообщение от min@y™ Посмотреть сообщение
Может и глупый вопрос: Но как подключить эту функцию к кнопке ? Я начинающий в этом деле, потому и спрашиваю. Заранее благодарен...
kladsss вне форума Ответить с цитированием
Старый 18.05.2018, 12:48   #4
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Цитата:
Сообщение от kladsss Посмотреть сообщение
Может и глупый вопрос: Но как подключить эту функцию к кнопке ? Я начинающий в этом деле, потому и спрашиваю. Заранее благодарен...
из обработчика onclick вызвать. в чом проблема?
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 18.05.2018, 12:53   #5
kladsss
Пользователь
 
Регистрация: 22.10.2017
Сообщений: 50
По умолчанию

Цитата:
Сообщение от min@y™ Посмотреть сообщение
из обработчика onclick вызвать. в чом проблема?
Стыдно в этом признаться, но по факту: Подскажите как сделать. Дело в том что я все время использовал простенькие процедуры для изучения. А функциями не пользовался.
kladsss вне форума Ответить с цитированием
Старый 18.05.2018, 13:13   #6
kladsss
Пользователь
 
Регистрация: 22.10.2017
Сообщений: 50
По умолчанию

Цитата:
Сообщение от min@y™ Посмотреть сообщение
из обработчика onclick вызвать. в чом проблема?
Благодаря Вам разобрался. Спасибо.

Последний раз редактировалось kladsss; 18.05.2018 в 13:27.
kladsss вне форума Ответить с цитированием
Старый 18.05.2018, 13:16   #7
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Цитата:
Сообщение от kladsss Посмотреть сообщение
Стыдно в этом признаться, но по факту: Подскажите как сделать. Дело в том что я все время использовал простенькие процедуры для изучения. А функциями не пользовался.
да йоптваю...
в любом учебнике всё это есть.
Код:
procedure TFormMain.ButtonFuckClick(Sender: TObject);
begin
  Edit.Text:= DeleteBetween(Edit.Text, 'test1', 'test2');
end;
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 18.05.2018, 13:26   #8
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

для решения задания ТС, код еще в цикл надо вложить?

posEx
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 18.05.2018, 13:28   #9
kladsss
Пользователь
 
Регистрация: 22.10.2017
Сообщений: 50
По умолчанию

Цитата:
Сообщение от min@y™ Посмотреть сообщение
да йоптваю...
Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
для решения задания ТС, код еще в цикл надо вложить?
Все, ребята - РАЗОБРАЛСЯ. Большое спасибо за помощь.!!!
kladsss вне форума Ответить с цитированием
Старый 18.05.2018, 16:24   #10
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Так поделись результатом какой результат
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Удалить текст между словом и ; на конце Karyuudo PHP 2 16.04.2013 15:59
Удалить в нём лишние пробелы, оставить только по одному пробелу между слов linnik Помощь студентам 1 10.11.2012 14:56
Удалить между текст, preg_replace xatrix PHP 0 16.07.2012 14:34
Дан текст из слов...(delphi) konj Помощь студентам 3 20.12.2011 20:27
Удалить текст между двух слов Polotenchik Microsoft Office Word 5 12.06.2011 11:01