Удаление комментариев

@SHULIKO · Регистрация: 19.11.2012

Всем привет ) Нужна Ваша помощь! Дан код на паскале в мемо, нужно при нажатии удалить коментарии с кода. Я пробывал так:

Delphi

procedure TForm1.Button3Click(Sender: TObject);
var
s:string;
i,len,pr,k,n:integer;
 
 begin
s:=memo1.Text;
 len:=length (s);
 n:=pos('//',s);
 delete(s,n,length(memo1.Lines[i]));
    memo1.clear;
    memo1.Lines.add(s);
 
end;

но он удаляет коментарии только 1-ой строки, включяя абзац-символ...
Как сделать чтоб он удалял во всех строках сразу??
Заранее спасибо

@Stas_Garcia · 01.06.2013, 17:31

Цикл.

@volvo · 01.06.2013, 17:33

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

Я пробывал так:

Попробуй в Memo записать вот такую строку:

Pascal

1	writeln('https://www.cyberforum.ru/delphi-beginners/thread887439.html#post4653327');

, и посмотри, что сделает твой код... Все не так просто, как тебе кажется, с комментариями...

@Stas_Garcia Ушел наливать чай 188 / 138 / 32 Регистрация: 02.03.2013 Сообщений: 652
	01.06.2013, 17:31	2
	Цикл. 0

Опции темы