function DocumentReadingUnits: TPdfReadingUnits;
TPdfReadingUnits閱讀單元會保持標題與圖片替代文字完整、在句子邊界切分段落文字、保留小數點,並將閱讀游標保留為呼叫端持有的陣列索引
搭配 TPdfView.SetReadingHighlight 使用 Rects,並結合 Language,讓視覺高亮與 TTS 語音同步
var Units: TPdfReadingUnits;
begin
Units := Pdf1.DocumentReadingUnits;
if Length(Units) > 0 then
Memo1.Lines.Add(Units[0].Text);
end;