18 lines
636 B
ObjectPascal
18 lines
636 B
ObjectPascal
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. |