property AnnotationCount: Integer; // read only
AnnotationCount zwraca długość tablicy /Annots bieżącej strony
(sekcja 12.5 specyfikacji PDF 1.7). Zliczane są wszystkie podtypy adnotacji — notatki
tekstowe, podświetlenia, podkreślenia, free-text, ink, stemple, kształty polygon i
polyline, adnotacje link, okna popup oraz adnotacje widgetów formularza. Zsumuj wartości
ze wszystkich stron, aby uzyskać łączną liczbę adnotacji w dokumencie
Właściwość wymaga, aby Active miało wartość True, i czyta z
strony wskazanej przez PageNumber. Gdy strona nie ma adnotacji albo dokument
nie jest załadowany, wartość wynosi 0. Użyj Annotation[Index] z
indeksami od 0 do AnnotationCount - 1, aby pobrać rekord
TPdfAnnotation opisujący podtyp, prostokąt ograniczający, kolor, maskę bitową
flag i tekst zawartości każdej pozycji
Iterowanie po adnotacjach ma złożoność O(n), ale każde wywołanie
Annotation[Index] otwiera nowy uchwyt PDFium i dekoduje zawartość Unicode na
żądanie; buforuj wynik, jeśli potrzebujesz go wielokrotnie. Modyfikowanie adnotacji strony
(wstawienia, usunięcia) unieważnia indeksy — uruchom pętlę od nowa albo ponownie odczytaj
AnnotationCount po zmianie
FormFieldCount, jeśli chcesz tylko widgety pólLinkAnnotationCount[PageNumber],
which filters to subtype /Link across any page directly.
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;