Поиск в Memo

@fanatUA · Регистрация: 29.09.2009

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

Мне нужно очитить те строки где есть запитая, вот каким путём я пошел

Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button2Click(Sender: TObject);
var
Find:string;
i:integer;
begin
find:=',';
For i:=0 to Memo1.Lines.Count-1 do begin
If Pos(FIND, Memo1.Lines[i])<>0 Then Memo1.lines[i]:='';
End;
end;

но проблема в том что оно с первого раза все запитые не убирает, а обычно с третього, может где-то я не досмотрел

@o-user · 20.10.2009, 23:45

Приведите пример текста, из которого не все запятые удаляются с первого раза!

@Inadequate · 21.10.2009, 00:12

ошибка связанна с тем, что когда вы удаляете строку все последующие индексы строк меняются, в резултате вы постоянно упускаете одну или несколько строк... вот рабочий код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
i:=0;
with Memo1 do
  while i<=Lines.Count-1 do
    if pos(',', Lines[i])<>0 then
    begin
      Lines.Delete(i);
      dec(i)
    end
    else
      inc(i)
end;

@o-user · 21.10.2009, 00:22

Сообщение от Inadequate

ошибка связанна с тем, что когда вы удаляете строку все последующие индексы строк меняются, в резултате вы постоянно упускаете одну или несколько строк... вот рабочий код:

Проверял. Индексы строк не изменяются, просто строки становятся пустыми.

@Андрей Борисови · 21.10.2009, 15:25

такие процессы оптимальнее выполнять в обратную сторону

незнаю почему, но у меня тоже оставались строки с "," сверху-вниз, а обратно - все строки удалил...

@fanatUA · 21.10.2009, 23:03 **[ТС]**

К сожалению так сложилось, что решение задачи стало нужным не через 3 дня, как меня просили, а немедленно - поэтому ваши отзывы до меня не дошли, пришлось пойти другим путем, возможно кому то понадобится.

Так как я писал, что за раз все запятые не убирались то я с помощью repeat until его повторял, и все заработало

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button2Click(Sender: TObject);
var
Find:string;        //Вводимо змінні//
i:integer;
begin
find:=',';
repeat                                    //Шукаємо коми//
if pos(Find,memo1.text)<>0 then begin
For i:=0 to Memo1.Lines.Count-1 do begin
If Pos(FIND, Memo1.Lines[i])<>0 Then memo1.Lines.Delete(i)
end
end
else Showmessage('Все очищено ні одного рядка з комою');       //Повідомлення, якщо ком немає//
until pos(Find,memo1.text)=0
end;

благодарю за проявленный интерес к моей проблемы, думаю тему можно закрыть

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@o-user 247 / 205 / 26 Регистрация: 03.02.2009 Сообщений: 785
	20.10.2009, 23:45
	Приведите пример текста, из которого не все запятые удаляются с первого раза! 0

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	21.10.2009, 15:25
	такие процессы оптимальнее выполнять в обратную сторону незнаю почему, но у меня тоже оставались строки с "," сверху-вниз, а обратно - все строки удалил... 0