Удалить заданный текст из 5 ++ строки Memo

@дно21 · Регистрация: 15.08.2017

Студворк — интернет-сервис помощи студентам

Доброго времени суток уважаемые программисты!

Появилась необходимость написать функцию, которая удаляет указанный из Edit текст из заданных строк.
Постараюсь показать все наглядно

Есть строки вида:

1. мама мыла раму
2. мама мыла гошу
3. гоша ел кашу в Карамба
4. Елка растет в лесу
5. Купи слона за пол цены
6. Карамба сказал пират
7. Что это за слово такое Карамба
8. Сказал Карамба и убежал

В Edit пишу слово "Карамба" и нажимаю кнопку, в результате работы функции должно выйти:

1. мама мыла раму
2. мама мыла гошу
3. гоша ел кашу в Карамба
4. Елка растет в лесу
5. Купи слона за пол цены
6. сказал пират
7. Что это за слово такое
8. Сказал и убежал

удалились все вхождения слова "карамба" в строках 6, 7, 8 .....
строки: 1,2,3,4 и 5 должны остаться не тронутыми

Пытался накалякать сам:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
for(int i = 5; i < AdvMemo1->Lines->Count ; i ++)
         {
       String a =AdvMemo1->Lines->Strings[i]+" ";
        {
 if (a.Pos(Edit6->Text)!=0)  //     удаление строки со словом
  {
 
 
 AdvMemo1->Lines->Text.Delete(a);
 
 
 i--;
 
 
 
 
   }
        }
         }

Но так и не вышло норм сделать, всю строку с вхождением удалить вышло, но не слово))

@Sasha · 27.11.2017, 03:21

C++
1
2
3
4
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Memo2->Text = StringReplace( Memo1->Text, "Карамба", "", TReplaceFlags( ) << rfReplaceAll );
}

@дно21 · 27.11.2017, 03:22 **[ТС]**

не то, этот код везде удалит

@Sasha · 27.11.2017, 04:15

C++
1
2
3
4
5
6
7
8
9
10
11
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  for(int i = 5; i < Memo1->Lines->Count; i++)
 {
   if(Memo1->Lines->Strings[i].Pos(Edit1->Text))
   {
     Memo1->Lines->Strings[i] = Memo1->Lines->Strings[i].Delete(Memo1->Lines->Strings[i].Pos(Edit1->Text)-1,Edit1->Text.Length());
   }
 }
 
}

@volvo · 27.11.2017, 10:43

А этот код удалит не все, если в строке будет более чем по одному вхождению строк. Поэтому объединяем два кода:

C++
1
2
3
4
    for (int i = 5; i < Memo1->Lines->Count; i++)
    {
        Memo1->Lines->Strings[i] = StringReplace(Memo1->Lines->Strings[i], Edit1->Text, "", TReplaceFlags() << rfReplaceAll);
    }

@дно21 · 27.11.2017, 12:34 **[ТС]**

Как всегда вариант от volvo работает и работает хорошо!
Огромное спасибо!

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@дно21 1 / 1 / 2 Регистрация: 15.08.2017 Сообщений: 81
	27.11.2017, 03:22 [ТС]
	не то, этот код везде удалит 0

@дно21 1 / 1 / 2 Регистрация: 15.08.2017 Сообщений: 81
	27.11.2017, 12:34 [ТС]
	Как всегда вариант от volvo работает и работает хорошо! Огромное спасибо! 0

Удалить заданный текст из 5 ++ строки Memo

Решение