property AnnotationCount: Integer; // read only
AnnotationCount zwraca długość tablicy /Annots bieżącej
strony (specyfikacja PDF 1.7, sekcja 12.5). Liczone są wszystkie podtypy adnotacji — notatki
tekstowe, wyróżnienia, podkreślenia, tekst swobodny, odręczne, pieczęcie, kształty wielokątne i łamane,
adnotacje linków, okna dialogowe popup oraz adnotacje widżetów formularzy. Połącz wartości ze
wszystkich stron, aby uzyskać łączną liczbę adnotacji w całym dokumencie
Właściwość wymaga, aby Active miało wartość True, i odczytuje dane ze
strony wskazanej przez PageNumber. Gdy strona nie ma adnotacji lub dokument
nie jest wczytany, wartość wynosi 0. Użyj Annotation[Index]
z indeksami od 0 do AnnotationCount - 1, aby pobrać
rekord TPdfAnnotation opisujący podtyp, prostokąt otaczający, kolor,
maskę bitową flag i tekst zawartości każdego wpisu
Iterowanie adnotacji ma złożoność O(n), jednak każde wywołanie Annotation[Index]
otwiera nowy uchwyt PDFium i dekoduje zawartość Unicode na żądanie; zbuforuj wynik,
jeśli potrzebujesz go wielokrotnie. Modyfikacja adnotacji strony (wstawienia,
usunięcia) unieważnia indeksy — uruchom pętlę ponownie lub odczytaj AnnotationCount
jeszcze raz po zmianie
FormFieldCount, jeśli chcesz liczyć tylko widżety pólLinkAnnotationCount[PageNumber],
które filtruje bezpośrednio do podtypu /Link na dowolnej stronie
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;