Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Excel VBA, CAD, Софт, ОС, Windows, Ubuntu, Android, VPS
Win Api, Assembler, C++, Java, Pascal, Lazarus, Delphi, OpenGL, DirectX
C#, Qt, .NET, ASP.NET, Windows Forms, ADO.NET, Framework, WPF, UWP, WinRT, XAML
HTML, CSS, JavaScript, Ajax, PHP, Perl, Python, Ruby, SQL, WordPress, API, XML, JSON, ActionScript, Flash

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

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

123123..
.12.12.12.12 - удаляем
12..11212
........123123123- удаляем
и тд
brownb вне форума   Ответить с цитированием
Старый 10.01.2017, 00:56   #2
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 21,210
Репутация: 4849
По умолчанию

Код:

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 вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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




01:48.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Покупайте на сайте www.skinon.ru уникальные чехлы и наклейки для телефонов.
купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru