说明：在 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;
原文：http://www.cnblogs.com/onechen/p/4979655.html