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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 09.01.2017, 20:05   #1
brownb
Форумчанин
 
Регистрация: 16.10.2016
Сообщений: 156
По умолчанию Если в строке...

Всех с новым годом)Подскажите как сделать программу которая будет удалять строки из мемо имеющие более 4-х точек.То есть есть список такого вида

123123..
.12.12.12.12 - удаляем
12..11212
........123123123- удаляем
и тд
brownb вне форума Ответить с цитированием
Старый 09.01.2017, 23:56   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Код:
function isCountPointMoreFour(s : string): boolean;
var i, cnt : integer;
begin
   isCountPointMoreFour := true;
   cnt := 0;
   for i:=1 to Length(s) do
      if s[i]='.' then begin inc(cnt); if cnt>=4 then Exit end;
   isCountPointMoreFour := false;
end;
......
на кнопку "Удалить"
Код:
var i: integer;
begin
  for i:=Memo1.Lines.Count-1 downto 0 do
    if isCountPointMoreFour(Memo1.Lines[i]) then Memo1.Lines.Delete(i);
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск символов в строке. Удалить строку, если их нет gauss_gauss Microsoft Office Word 4 24.03.2012 14:37
Если в строке есть ~ то... celovec Общие вопросы Delphi 6 28.03.2011 22:55
Если длинна строки больше объявленной, разместить избыточный текст в новой строке!!! bingooo Паскаль, Turbo Pascal, PascalABC.NET 1 10.04.2010 19:41
D2010. Почему в строке uses, если нажать ctrl+space будут видны не все модули? TwiX Свободное общение 0 15.03.2010 02:12
Как изменить цвет текста на всей строке в RichEdit, если строка содержит определенное слово?? IIpopoK Общие вопросы Delphi 0 22.06.2008 07:57