/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
PABCNetHelp/LinqDocGen/ExecDoc3.pas
18 строк
636 B
miks1965
Добавил справку и средства для автогенерации справки по системному модулю
02 авг 2018, 22:04
02 авг 2018, 22:04
ca51baf
Код
Авторство
О чём код?
function Sk(s:string): string; begin var q := s.SkipWhile(c->not (c in ['a'..'z','A'..'Z'])); Result := new string(q.ToArray()) end; begin var files := ReadLines('������������.pas').Where(s->s.startswith('// ')).Select(s->Rec(s.Remove(0,3),sk(s))); var z := files.Select(p->'<li><a href="Files\'+p.Item2+'.html">'+p.Item1+'</a></li>'); //files.Print(NewLine); WriteAllLines('d.html',z); //g.Print(NewLine+NewLine); {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>';} end.