Удаление комментариев из файла
пример кода
TDateTime t;
// çàäàäèì ðàçìåð ôîðìû
// â ñîîòâåòñòâèè ñ ðàçìåðîì öèôåðáëàòà
ClientHeight = (R + 30)*2;
ClientWidth = (R + 30)*2;
x0 = R + 30;
yo = R + 30;
t = Now();
/* Îïðåäåëèòü ïîëîæåíèå ñòðåëîê.
Óãîë ìåæäó ìåòêàìè (öèôðàìè) ÷àñîâ, íàïðèìåð, öèôðàìè 2 è
3, -30 ãðàäóñîâ.
Óãîë ìåæäó ìåòêàìè ìèíóò - 6 ãðàäóñîâ.
Óãîë îòñ÷èòûâàåì îò 12-òè ÷àñîâ */
ahr = 90 - HourOf(t)*30-(MinuteOf(Today() ) / 12) *6;
amin = 90 - MinuteOf(t)*6;
-asec = 90 - SecondOf( Today() )*6;
Нужно удалить из него все комментарии
Просто посимвольно обрабатывай строки в поисках последовательностей // и /*, после которых не добавляй символы в выходной поток\файл или куда ты там пишешь, пока не встретиться \n и */ соответственно.
Единственный тонкий момент тут - это обработка строковых литералов, т.е. потребуется проверка на то, что // и /* (открывающие последовательности) не находятся внутри строкового литерала (т.е. не так "// ... /*").
Задача вроде "известная", а найти через поисковик не могу