Code666 (代码贴、代码片段)

[Delphi (Object Pascal)] Delphi 检查系统中是否包含指定的字体 →→→→→进入此内容的聊天室

来自 , 2019-03-04, 写在 Delphi (Object Pascal), 查看 152 次.
URL http://www.code666.cn/view/4e093aa7
  1. function FontExists(const FontName: string): Boolean;
  2. begin
  3.   Result := Forms.Screen.Fonts.IndexOf(FontName) >= 0;
  4. end;

回复 "Delphi 检查系统中是否包含指定的字体"

这儿你可以回复上面这条便签

captcha

贴代码片段 - Code666