Удалить из файла с исходным текстом программы на языке Object Pascal все комментарии

@1StBorz · Регистрация: 12.10.2015

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

Удалить из файла с исходным текстом программы на языке Object Pascal все комментарии.
Сохранил файл.тхт с обычной программой , после этого загружаю код в мемо.

Delphi

1	Memo1.Lines.LoadFromFile('Code.txt' )

Как мне удалить все комментарии ?

Добавлено через 6 минут
Получается что мне нужно удалить все что за // , это вроде не сложно , а как тогда удалить все что находиться в скобках {} ?

@RostorLuxor · 04.02.2016, 05:53

1StBorz, попробуйте так:

@1StBorz · 04.02.2016, 06:06 **[ТС]**

RostorLuxor, Спасибо

@AHBAR · 04.02.2016, 13:48

RostorLuxor, лучше бы текст выкладывал..

@RostorLuxor · 04.02.2016, 14:42

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

лучше бы текст выкладывал

Просто некоторые люди тупо код вставляют, а Button'ы, Edit'ы не кидают на форму.
А потом: "Код не рабочий! Undeclared identifier!".
1StBorz, конечно не такой, просто я так привык уже

@mss · 04.02.2016, 15:27

Не по теме:

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

некоторые ..тупо .. вставляют

А некоторые - не будем показывать пальцем - тупо удаляют без разбора все что находится между скобками { и }, хотя там может находиться не комментарий, а управляющая директива компилятора)

@Sergio Leone · 04.02.2016, 15:49

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

упо удаляют без разбора все что находится между скобками { и }, хотя там может находиться не комментарий, а управляющая директива компилятора)

Если всё так, как Вы пишете, то всё будет ещё хуже.
вот легальный (рабочий) код:

Delphi

var s:string;
begin
  s := '{ ---';
  writeln(s,' } aaa ');
end.

и в этом коде тоже ничего не надо удалять. программа это поймёт?

@mss · 04.02.2016, 16:39

И это тоже не поймет)
Что лишний раз подтверждает - не надо "тупо", а надо "умно")

Добавлено через 2 минуты

Не по теме:

А "умно" - это пахнет полноценным лексико-грамматическим анализатором)
А он, в свою очередь, для Автора пахнет "низачотом")

@RostorLuxor · 05.02.2016, 14:47

Сообщение от 1StBorz

Object Pascal

Там насколько я знаю нет директив.
Директивы это в Delphi.

Сообщение от Sergio Leone

программа это поймёт?

Если вам сильно надо, могу правку сделать чтобы понимала и такое.

@Sergio Leone · 05.02.2016, 21:52

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

Там насколько я знаю нет директив.
Директивы это в Delphi.

сложный вопрос.
Директивы были в Turbo Pascal
Директивы были в Delphi (который, напоминаю, до Delphi 7 именовал свой Паскаль именно Object Pascal).
Но ладно, даже если забыть про директивы, без лексического и синтаксического анализатора данную задачу в полном объём решить НЕЛЬЗЯ!

Поэтому, для подобных учебных задач, часто допускаются упрощения. По хорошему, об этом в задании должно быть сказано. в идеале - дан пример кода. Но это всё не особо важно.

Вполне допускаю, что твоё решение вполне устроит преподавателя (студента уже устроило, как я понял из откликов). А значит, продолжать обсуждать - не имеет особого смысла.

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

Если вам сильно надо, могу правку сделать чтобы понимала и такое.

Да Господь с тобой. Мне то это зачем?! Я тебя что, "на слабо" брать пытаюсь?! Или проверяю, умеешь ты программировать или нет?! Для меня не надо ничего править!

я вообще не смотрел твой код. Надеюсь, все виды комментариев отрабатываются?

В Object Pascal в качестве ограничителей комментария могут также использоваться пары символов (*, *) и //. Скобки (*...*) используются подобно фигурным скобкам, т. е. комментарием считается находящийся в них фрагмент текста, а символы // указывают компилятору, что комментарий располагается за ними и продолжается до конца текущей строки

Добавлено через 5 минут
до кучки. комментарии ещё и вложенные бывают..

Delphi

begin
  { // а ещё бывают вложенные комментарии
      (* <---- вот это не нужно обрабатывать
  }
  WriteLn('Line 1 *)');
  (*
     { <- и вот это тоже не нужно обрабатывать
     // ' *)
  WriteLn('Line 2 }')
end.

@1StBorz 1 / 1 / 0 Регистрация: 12.10.2015 Сообщений: 26
	04.02.2016, 06:06 [ТС]	3
	RostorLuxor, Спасибо 0

@AHBAR 1077 / 488 / 316 Регистрация: 05.04.2013 Сообщений: 2,141
	04.02.2016, 13:48	4
	RostorLuxor, лучше бы текст выкладывал.. 0

@RostorLuxor 144 / 129 / 46 Регистрация: 12.08.2015 Сообщений: 1,203 Записей в блоге: 1
	04.02.2016, 14:42	5
	Сообщение от AHBAR лучше бы текст выкладывал Просто некоторые люди тупо код вставляют, а Button'ы, Edit'ы не кидают на форму. А потом: "Код не рабочий! Undeclared identifier!". 1StBorz, конечно не такой, просто я так привык уже 0

@mss
	04.02.2016, 15:27 #6
	Не по теме: Сообщение от RostorLuxor некоторые ..тупо .. вставляют А некоторые - не будем показывать пальцем - тупо удаляют без разбора все что находится между скобками { и }, хотя там может находиться не комментарий, а управляющая директива компилятора) 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	04.02.2016, 16:39	8
	И это тоже не поймет) Что лишний раз подтверждает - не надо "тупо", а надо "умно") Добавлено через 2 минуты Не по теме: А "умно" - это пахнет полноценным лексико-грамматическим анализатором) А он, в свою очередь, для Автора пахнет "низачотом") 1

@RostorLuxor 144 / 129 / 46 Регистрация: 12.08.2015 Сообщений: 1,203 Записей в блоге: 1
	05.02.2016, 14:47	9
	Сообщение от 1StBorz Object Pascal Там насколько я знаю нет директив. Директивы это в Delphi. Сообщение от Sergio Leone программа это поймёт? Если вам сильно надо, могу правку сделать чтобы понимала и такое. 0

	05.02.2016, 21:52

Опции темы

Удалить из файла с исходным текстом программы на языке Object Pascal все комментарии

Решение