function GetLinkedAnnotationChain(AnnotIndex: Integer; Relationship: TPdfAnnotationRelationship; MaxDepth: Integer = 64): TPdfIntegerArray;
| AnnotIndex | Integer. فهرس صفري الأساس للتعليق التوضيحي البادئ على الصفحة الحالية، في المدى 0 .. AnnotationCount - 1 |
| Relationship | TPdfAnnotationRelationship. يتبع parPopup مدخلات /Popup، ويتبع parInReplyTo مدخلات الردود /IRT |
| MaxDepth | Integer. أقصى عدد من الروابط يُتبَّع. يجب أن يكون بين 1 و 4096 وإلا يُرفع EPdfError. والافتراضي 64 |
| Result | TPdfIntegerArray. فهارس الصفحات للتعليقات التوضيحية المترابطة بترتيب الزيارة. ويكون فارغًا عندما لا يملك التعليق البادئ رابطًا من هذا النوع |
يطبق GetLinkedAnnotationIndex مرارًا: من التعليق البادئ يتبع العلاقة المطلوبة إلى التعليق التالي، ثم مرة أخرى من ذاك، جامعًا كل فهرس على الطريق. والنتيجة هي سلسلة ردود نقاش أو سلسلة منبثقات، كمصفوفة بسيطة من فهارس تعليقات الصفحة
يتوقف المشي على ثلاثة شروط: ألا يملك التعليق الحالي رابطًا آخر، أو أن يبلغ عدد الروابط المزارة MaxDepth، أو أن يعيد الفهرس التالي زيارة تعليق جرى رؤيته سابقًا (ويُعد الفهرس البادئ مرئيًا). وحارس الدورات يجعل الاستدعاء آمنًا على المستندات المشوَّهة التي تدور مدخلات /IRT فيها
الفهرس البادئ نفسه ليس أبدًا جزءًا من النتيجة، بل التعليقات التوضيحية التي يقود إليها فقط. والتعليق الذي لا يملك الرابط المطلوب يعطي مصفوفة فارغة، لا خطأً
MaxDepth خارج 1 .. 4096 ترفع EPdfError قبل فتح أي تعليق توضيحي
var
Chain: TPdfIntegerArray;
Index: Integer;
begin
// collect the whole reply thread under annotation 5
Chain := Pdf1.GetLinkedAnnotationChain(5, parInReplyTo);
for Index in Chain do
Memo1.Lines.Add(Pdf1.Annotation[Index].ContentsText);
end;