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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 15.09.2017, 10:41   #1
brownb
Форумчанин
 
Регистрация: 16.10.2016
Сообщений: 156
По умолчанию Удалить 5-ти сивльные строки

Добрый день!
Подскажите как удалить строки в мемо которые равны 5 сиволам
brownb вне форума Ответить с цитированием
Старый 15.09.2017, 10:47   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Взять текст из мемо. Выкинуть из него строки длинной 5 и присвоить обратно в мемо. Вроде ж обычная логика, не сложнее завязки шнурков...
p51x вне форума Ответить с цитированием
Старый 15.09.2017, 10:57   #3
PTyTb32
Форумчанин
 
Регистрация: 06.10.2013
Сообщений: 216
По умолчанию

Код:
cl:=tstringlist.create;
cl:=memo1.lines;
for i:=0 to cl.count-1 do
  if cl[i].length = 5 then
memo1.lines.delete(memo1.Lines.IndexOf(cl[i]));
PTyTb32 вне форума Ответить с цитированием
Старый 15.09.2017, 11:08   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

PTyTb32, кошмар.
да ещё и с багами.

тогда уже так:
Код:
  for i:=Memo1.Lines.Count-1 downto 0 do 
    if Length(Memo1.Lines[i])=5 then Memo1.Lines.Delete(i);
p.s. если текст большой, тогда имеет смысл перенести текст в TStringList, его в цикле обработать и потом вернуть обработанный результат в Memo
Serge_Bliznykov вне форума Ответить с цитированием
Старый 15.09.2017, 11:10   #5
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Код:
for i:=cl.count-1 downto 0 do
  if cl[i].length = 5 then cl.delete(i);
Ой, опоздал ))
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 15.09.2017, 11:39   #6
PTyTb32
Форумчанин
 
Регистрация: 06.10.2013
Сообщений: 216
По умолчанию

downto оу.. а так можно было всю дорогу))) что ж, буду знать)
PTyTb32 вне форума Ответить с цитированием
Старый 16.09.2017, 01:23   #7
northener
ПШП
Участник клуба
 
Регистрация: 15.07.2013
Сообщений: 1,859
По умолчанию

Цитата:
Сообщение от PTyTb32 Посмотреть сообщение
downto оу.. а так можно было всю дорогу)))
Сочувствую
northener вне форума Ответить с цитированием
Старый 18.09.2017, 08:06   #8
PTyTb32
Форумчанин
 
Регистрация: 06.10.2013
Сообщений: 216
По умолчанию

Цитата:
Сообщение от northener Посмотреть сообщение
Сочувствую
теперь страшно представить сколько раз это сократило бы то что я писал....
PTyTb32 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Из строки удалить среднюю букву, если длина строки нечетная, если четная удалить две средние буквы. Заменить все вхождения в текст некоторой буквы на другую букву(PascalABCNET) FlayGlam Помощь студентам 0 03.12.2016 09:57
Удалить строки из Memo Streb Общие вопросы Delphi 7 16.12.2015 17:55
Удалить число из строки Shouldercannon PHP 5 10.12.2014 17:31
Даны строки S и S0. Удалить из строки S все подстроки, совпадающие с S0 . Если совпадающих подстрок нет, Шпунюся Помощь студентам 1 16.12.2010 21:02
Удалить строки от n до m Zirat Microsoft Office Excel 2 01.10.2010 22:17