Delphi Android 字体列表

您可以使用TFontManager来获取Android设备上已安装的字体列表。

以下是一个示例代码，它显示了如何使用TFontManager来获取Android设备上已安装的字体列表，并将其添加到一个下拉列表框中：

uses
  FMX.Fonts, FMX.Platform.Android;

procedure TForm1.FormCreate(Sender: TObject);
var
  FontList: TStrings;
  I: Integer;
  FontService: IFMXFontService;
begin
  FontList := TStringList.Create;
  try
    // Get the font service
    FontService := TPlatformServices.Current.GetPlatformService(IFMXFontService) as IFMXFontService;
    // Get the list of installed fonts
    FontService.GetInstalledFonts(FontList);
    // Add the fonts to the combo box
    for I := 0 to FontList.Count - 1 do
      ComboBox1.Items.Add(FontList[I]);
  finally
    FontList.Free;
  end;
end;

请注意，上面的代码是用于FireMonkey框架的。如果您使用的是VCL框架，则需要使用不同的代码。