// Nouveaute - v 1.0 © 1999 Escot-Sep christophe

// Affiche une liste de liens vers les nouveautés

// Placez à l'endroit de la nouveauté un signet
// définissez un mot clef de même nom avec une Note N

var i,NbrTopic,NbrKey,j:integer;
fSaut : string;
Nouveaute: string;
Rubrique : string;

begin

// obtenir le nombre total de rubrique du projet
NbrTopic := GetTopicCount;

// masque du code pour la macro de saut
// On utilise une macro car cela nous permet de sauter vers un signet
fSaut:='<<MCR(JI(qchPath,`%s')>>+ <<FNT(NUMBER.-,-,-,-:#39)>>+<<FNT(STRING.-,-,-,-:'):%s)>>';
// tester l'ensemble des rubriques
for i:=0 to NbrTopic do
begin
// pour chaqu'une, obtenir les mots clefs correspondants au filtre "Note"
NbrKey:=GetKeysNoteOf(i,'N');

// parcourir la liste des mots clefs
// NbrKey contient au départ le nombre total des clefs
// Comme les clefs sont indexées depuis zéro,
// la derniere clef est GetKey(NbrKey-1)

for j:=0 to NbrKey-1 do
begin
// on obtient le Nom de la rubrique
Rubrique := GetNomOf(i);
// le mot clef qui servira de lien
Nouveaute:= GetKey(j);//nbrKey-1);
// tenir compte du signet pour la rubrique cible
Rubrique:=Rubrique+'>'+Nouveaute;

// on place le lien dans la rubrique
WriteLn(Format(fSaut,[Rubrique,Nouveaute]));

end;

end; // rubrique suivante


end.

Sommaire