Delphi 取得 iOS 輔助使用裡的字型大小，

Delphi 取得 iOS 輔助使用裡的字型大小，

說明：在 iOS 裡有一個人性化的輔助設定，可以將字體放大，但這個設定對 Delphi 是不起作用的，還好 Delphi 提供了這個 iOS API 可以取得。

開發環境：Delphi 10 Seattle

運行系統：iOS 7.0 以上

參考資料：Apple 官網

源碼：

function iOSFontSize: Single;
var f: UIFontDescriptor;
begin
     f := TUIFontDescriptor.OCClass.preferredFontDescriptorWithTextStyle(UIFontTextStyleBody);
     Result := f.pointSize;
end;