Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
nickrises
0 / 0 / 0
Регистрация: 06.03.2015
Сообщений: 1
#1

Удалить строку из Memo, если в ней встречается определенная подстрока - Delphi

06.03.2015, 20:12. Просмотров 377. Ответов 1
Метки нет (Все метки)

Вообщем есть у нас на форме memo1 и button.
В memo1 у нас написан какой-то текс:
В пятницу президент поставил точку в вопросе сокращения зарплат депутатам и сенаторам, подписав указ об уменьшении денежного вознаграждения на 10% лицам, замещающим отдельные государственные должности.
И нам нужно что-бы при нажатии на button, программа проверяла строки и если в строке не найдено к примеру "цу", то вся строка удалялась. Кто может напишите данный код пожалуйста.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.03.2015, 20:12
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Удалить строку из Memo, если в ней встречается определенная подстрока (Delphi):

Если строка в Memo оканчивается на 'ab', удалить из ListBox строку и соответствующий файл с диска - Delphi
Есть мэмо и листбокс. В листбоксе список файлов с папки, в мэмо такое же кол-во строк, что и в лист боксе. каждая строка в мэмо...

Если в Memo в каком нибудь слове встречается буква (a), то сделать видимым какой либо компонент - Delphi
как реализовать, если в memo в каком нибудь слове встречается буква (a) , то сделать видимым какой либо компонент (например panel).

Не могу удалить нужную строку из Memo - Delphi
Label1.Caption := Listbox1.Items; //3 строка листбокса содержит число 15 // Memo1.Lines.Delete(Listbox1.Items); // не работает так ...

Разделить строку если в ней присутствует символ # - Delphi
Всем доброго времени суток! Нужно разделить строку если в ней присутствует символ # вот этот код пробовал ...

Как удалить последнюю написанную строку в memo? - Delphi
подскажите как удалить последнюю написанную строку в memo

Удалить с Memo строку которая есть в StringList'e ?? - Delphi
procedure TForm1.Button5Click(Sender: TObject); var i,j,c,b,k,lc:integer; begin For i:= 0 to Memo1.Lines.Count-1 do ...

1
Mawrat
12820 / 5728 / 676
Регистрация: 19.09.2009
Сообщений: 8,807
06.03.2015, 21:06 #2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
uses
  StrUtils;
 
{...}
 
var
  i : Integer;
begin
  for i := Memo1.Lines.Count - 1 downto 0 do
    if not AnsiContainsText(Memo1.Lines[i], 'цу') then //Проверка на наличие подстроки без учёта регистра.
      Memo1.Lines.Delete(i); 
end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.03.2015, 21:06
Привет! Вот еще темы с ответами:

StringGrid скопировать строку если в ней есть нужное слово - Delphi
Eсть 2 StringGrid'a, в первом куча записей, второй пустой. Нужно из первого вставить строку во второй(отсеять лишние строки). То есть...

Определение номера строки текста, где встречается подстрока - Delphi
Помогите пожалуйста, не могу разобраться с тем, что нужно добавить в текст, чтобы моя кнопка "поиск" выводила не только количество вхожденй...

Номер позиции в текстовом файле, начиная с которой, встречается подстрока - Delphi
Здравствуйте, уважаемые! Помогите, пожалуйста, решить задачу. Дан текстовый файл. Необходимо ввести с клавиатуры строку символов и...

В исходном предложении удалить все слова,если в них встречается "я" - Delphi
В исходном предложении удалить все слова,если в них встречается "я"(прописная или заглавная).Люди помогите пожайлуста.Заранее благодарю. ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru