property AnnotationCount: Integer; // read only
AnnotationCount renvoie la longueur du tableau /Annots (spécification PDF 1.7, section 12.5). Tous les sous-types d’annotations sont comptés — notes texte, surlignages, soulignements, texte libre, encre, tampons, formes polygonales et polylignes, annotations de lien, annotations popup et widgets de formulaire. Combinez les valeurs de toutes les pages pour obtenir le total d’annotations du document
La propriété exige que Active soit True et lit la page indiquée par PageNumber. Lorsque la page ne contient aucune annotation ou que le document n’est pas chargé, la valeur est 0. Utilisez Annotation[Index] avec des indices de 0 à AnnotationCount - 1 pour récupérer un enregistrement TPdfAnnotation décrivant le sous-type, le rectangle englobant, la couleur, le masque de bits de drapeaux et le texte de contenu de chaque entrée
L’itération des annotations est en O(n) mais chaque appel à Annotation[Index] ouvre un nouveau handle PDFium et décode les contenus Unicode à la demande ; mettez le résultat en cache si vous en avez besoin plusieurs fois. Toute mutation des annotations d’une page (insertions, suppressions) invalide les indices — relancez la boucle ou relisez AnnotationCount après la modification
FormFieldCount si vous ne voulez que les widgets de champLinkAnnotationCount[PageNumber], qui filtre sur le sous-type /Link sur n’importe quelle page directement
var I: Integer;
var A: TPdfAnnotation;
for I := 0 to Pdf1.AnnotationCount - 1 do
begin
A := Pdf1.Annotation[I];
Memo1.Lines.Add(Format('%d: subtype=%d text=%s',
[I, Ord(A.Subtype), A.ContentsText]));
end;