Delphi读取Android设备联系人

这篇文章是武稀松的原创,是在XE6下编译通过的,我尝试D10up1下重新编译,发现并无大问题。 那就搬过来分享下吧。 上代码。 unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Pre