function DocumentReadingUnits: TPdfReadingUnits;
TPdfReadingUnits阅读单元会保持标题和图形的替代文本完整,按句子边界拆分段落文本,保留小数点,并把阅读游标作为调用方持有的数组索引
将 Rects 与 TPdfView.SetReadingHighlight 和 Language 一起使用,以协调视觉高亮与 TTS 语音
var Units: TPdfReadingUnits;
begin
Units := Pdf1.DocumentReadingUnits;
if Length(Units) > 0 then
Memo1.Lines.Add(Units[0].Text);
end;