9 lines
692 B
ObjectPascal
9 lines
692 B
ObjectPascal
|
begin
|
|||
|
|
var funcs := ReadLines('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.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('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.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.
|