本文整理自网络，侵删。
系统字型名称在每个平台的取得方式不尽相同，以下示范如何在 iOS 取得系统内所有字型的名称：
uses
// 加入下面二个 uses 文件
iOSapi.UIKit,
iOSapi.Foundation,
开一个新工程，放一个按钮 TButton 及 TMemo，在按钮事件内加入下面代码：
procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
FontNames: NSArray;
begin
FontNames := TUIFont.OCClass.familyNames;
for i:=0 to FontNames.count - 1 do
Memo1.Lines.Add(i.ToString + #9 + UTF8ToString(TNSString.Wrap(FontNames.objectAtIndex(i)).UTF8String));
end;
来源：http://www.cnblogs.com/onechen/p/4357804.html
相关阅读 >>
移植Delphi7的tclientsocket,tserversocket
更多相关阅读请进入《Delphi》频道 >>
