/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
PABCNetHelp/LinqDocGen/ExecDoc1.pas
9 строк
692 B
miks1965
Добавил справку и средства для автогенерации справки по системному модулю
02 авг 2018, 22:04
02 авг 2018, 22:04
ca51baf
Код
Авторство
О чём код?
begin var funcs := ReadLines('������������.pas').Where(s->s.startswith('function')).Select(s->s.Replace('<','<').Replace('>','>')); funcs := funcs.Select(s->s.Replace('<','<').Replace('>','>')).Select(s->s.Insert(8,'</b>').Insert(0,'<b>')); var comments := ReadLines('������������.pas').Where(s->s.startswith('///')).Select(s->s.Remove(0,4)); comments := comments.Select(s->begin s := Trim(s); if s[s.Length]<>'.' then s += '.'; Result := s; end); var z := funcs.Zip(comments,(f,c)->'<tr><td>'#13#10'<code>'+f+'</code>'+NewLine+'<br>'+' '+c+#13#10'</td></tr>'); z := '<table border=0>'+z+'</table>'; WriteAllLines('a.html',z); end.