RSS订阅 | 匿名投稿
您的位置:网站首页 > iOS > 正文

Delphi XE7 iOS 取得系统字型名称

作者:admin 来源: 日期:2015/4/26 21:46:21 人气: 标签:

系统字型名称在每个平台的取得方式不尽相同,以下示范如何在 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

 


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料