-
<%
for nCurTopic := 0 to length(aTopicList) - 1 do
begin
sCurTopic := aTopicList[nCurTopic].id;
nCurTopicLevel := HndTopics.GetTopicLevel(sCurTopic);
%>
% var aTopicList: THndTopicsInfoArray; var nBlocLevel: integer = 0; var nCurTopic, nCurTopicLevel, nDif, nClose: integer; var sCurTopic, sProjectTitle: string; begin // Setup the file name HndGeneratorInfo.CurrentFile := ExtractFileName(HndGeneratorInfo.OutputFile); sProjectTitle := HndProjects.GetProjectTitle(); aTopicList := HndTopicsEx.GetTopicListGenerated(True, False); %>