var FonteTitre,FonteContenu:string;
Liste : TstringList;
i,NbrTopic:integer;
All:boolean;
Note,CssTitle,CssText:string;
begin
// voir si le paramètre "FilterNote" est indiqué, par défaut "Note" est vide
Note := GetParam('FilterNote','');
// si "Note" est vide, on prendra l'ensemble des popups
All := Note='';
// récuperer les styles

// si pas de css on utilise la fonte du titre des chapitres
// Vous fixez cette fonte depuis le menu Options|Projet|Typographie
// voir l'aide en ligne de GetElement pour d'autres fontes
CssTitle := GetParam('CssTitle','');
if CssTitle<>'' then CssTitle:=CssTitle+'.' else CssTitle := GetElement(eFntChapter);
// pour le texte
CssText := GetParam('CssText','');
if CssText<>'' then CssText := CssText+'.' else CssText := GetElement(eFntDefaultChapter);

// Fixation en code Help&Web de la fonte du titre et du texte
// si dans le contenu du popup se trouve également des éléments de formatages
// ce seront ces derniers qui seront employés.
FonteTitre := Format('<<FNT(%s:)>>',[cssTitle]);
FonteContenu := Format('<<FNT(%s:)>>',[cssText]);

// création de la liste contenant les titres des popups à répertorier
Liste := TstringList.create;
// Nombre de rubriques du projet
NbrTopic := GetTopicCount;

// Remplir la liste avec uniquement les titres des popups
if All then // si All=true, prendre l'ensemble des popups
begin
for i:=0 to NbrTopic do
if IsPopup(i) then Liste.Add(GetTitreOf(i));
end
else // sinon, ne prendre que les popups ayants une note "Note"
begin
for i:=0 to NbrTopic do
if IsPopup(i) and (GetKeysNoteOf(i,Note)>0) then Liste.Add(GetTitreOf(i));
end;

// Rappel : Les notes sont attribuées aux mots-clefs

// Trier la liste
Liste.Sorted := true;

// Création du contenu du glossaire
for i:=0 to Liste.count-1 do
begin
// écrire le titre
Write(FonteTitre+Liste.strings[i]+FonteContenu+ ':');
// GetTextOf récupère le contenu,
// voir l'aide en ligne pour les paramètres
Writeln(GetTextOf('',Liste.Strings[i]));
// une ligne vide entre les entrées
Writeln('');
end;
// Ne pas oublier de détruire la liste
Liste.free;
end;
end.

Sommaire