Удалить в строке

@doc_07 · Регистрация: 26.11.2016

Как удалить в данной строке от определенного символа и до последнего (не смещая следующую строку на предыдущую)?

@droider · 28.06.2017, 11:51

Не по теме:

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

даже переписал неправильно

тоже уметь надо

@krapotkin · 28.06.2017, 13:00

for i:=0 ... не подойдет, если вы будете удалять строки из мемо
нужно

Delphi
1
2
i:=0;
while i<mmo1.lines.count do

далее
так как вы не понимаете, что тут написано, разделите алгоритм на два

в первом ищите в каждой строке p:=pos('//',mmo1.lines[i]);

Code
1
2
3
 если p>1 то begin mmo1.lines[i] := copy(mmo1.lines[i], 1, p-1); inc(i); end
 иначе если p>0 то mmo1.lines.delete(i)
 иначе inc(i)

во втором так же для каждой строки

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
если not InComment то
begin
  p:=pos('/*',mmo1.lines[i]);
  если p>1 то begin mmo1.lines[i] := copy(mmo1.lines[i], 1, p-1); inc(i); inComment:=true; end
  иначе если p>0 то begin mmo1.lines.delete(i); InComment:=true; end;
  иначе inc(i)
end
else
begin
  p:=pos('*/',mmo1.lines[i]);
  если p>0 то  begin 
    inComment := false;
    mmo1.lines[i] := copy(mmo1.lines[i],p+2, length(mmo1.lines[i]));
    если mmo1.lines[i]='' то mmo1.lines.delete(i)
    иначе inc(i)
  end
  иначе
    inc(i)
end;

@doc_07 · 28.06.2017, 14:09 **[ТС]**

Первый алгоритм с // срабатывает на ура , а второй не работает
Правильно я написал ?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
i:=0;
        while i<mmo1.lines.count do
        begin
        if (not InComment) then
        begin
        p:=pos('/*',mmo1.lines[i]);
        if p>1 then
        begin
        mmo1.lines[i] := copy(mmo1.lines[i], 1, p-1);
        inc(i);
        inComment:=true;
        end
        else if p>0 then
        begin
        mmo1.lines.delete(i);
        InComment:=true;
        end
        else inc(i);
        end
        else
        begin
        p:=pos('*/',mmo1.lines[i]);
        if p>0 then
        begin
        inComment := false;
        mmo1.lines[i] := copy(mmo1.lines[i],p+2, length(mmo1.lines[i]));
        if mmo1.lines[i]=' ' then
        mmo1.lines.delete(i)
        else inc(i);
        end
        else
        inc(i);
        end;
        end;

@krapotkin · 28.06.2017, 15:05

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
i:=0;
InComment:=false;
while i<mmo1.lines.count do
begin
  if (not InComment) then
  begin
    p:=pos('/*',mmo1.lines[i]);
    if p>1 then
    begin
      mmo1.lines[i] := copy(mmo1.lines[i], 1, p-1);
      inc(i);
      inComment:=true;
    end
    else 
    if p>0 then
    begin
      mmo1.lines.delete(i);
      InComment:=true;
    end
    else 
      inc(i);
  end
  else
  begin
    p:=pos('*/',mmo1.lines[i]);
    if p>0 then
    begin
      inComment := false;
      mmo1.lines[i] := copy(mmo1.lines[i],p+2, length(mmo1.lines[i]));
      if mmo1.lines[i]=' ' then
        mmo1.lines.delete(i)
      else 
        inc(i);
    end
  else
    inc(i);
end;

@AHBAR · 28.06.2017, 15:21

Не по теме:

блин когда научатся обрамлять код тэгами....

@D1973 · 29.06.2017, 16:41

Не по теме:

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

когда научатся обрамлять код тэгами

когда у меня терпение кончится обрамлять код тэгами, и я горчичники начну лепить всем кому не попадя :D

Новые блоги и статьи Все статьи Все блоги /
Свет внутри себя kumehtar 07.06.2026 Пусть это будет здесь lIs4oanZS9Y	Программа для com-порта Uhbif79 05.06.2026 Всем привет, давно хотел изучить Qt, начинал, бросал, потом снова начинал. И сейчас вот смог написать свою первую программу. До этого имел опыт программирования микроконтроллеров, писал прошивки на. . .	Транскрипция 55-минутного видео через Whisper: WhisperDesktop облажался, спас Google Colab[ anaschu 01.06.2026 Понадобилось получить текст из свежезагруженного видео на YouTube. Казалось бы, задача на пять минут. Заняла полтора часа. Делюсь опытом — может кому пригодится последовательность решений. . . .	21 мат мед. Планы на развитие модели здравоСохранения anaschu 01.06.2026 AnyLogic: план развития симуляционной модели рабочего коллектива — динамический абсентеизм, реальные данные, три сценария сравнения Продолжаю серию постов о дискретно-событийной модели рабочего. . .
20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .	19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .	"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.

@doc_07 0 / 0 / 0 Регистрация: 26.11.2016 Сообщений: 58

	Удалить в строке 28.06.2017, 02:23. Показов 1955. Ответов 25 Метки нет (Все метки) Как удалить в данной строке от определенного символа и до последнего (не смещая следующую строку на предыдущую)? 0

@AHBAR
	28.06.2017, 15:21
	Не по теме: блин когда научатся обрамлять код тэгами.... 0