获取字体内所有Unicode编码

最新推荐文章于 2025-06-11 15:08:45 发布

zhengfengpei

最新推荐文章于 2025-06-11 15:08:45 发布

阅读量4.5k

点赞数

CC 4.0 BY-SA版权

文章标签： integer string

本文链接：https://blog.youkuaiyun.com/zhengfengpei/article/details/1817375

本文介绍了一种使用GetFontUnicodeRanges函数来获取指定字体所有Unicode范围的方法，并提供了详细的Delphi代码实现。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

主要是对GetFontUnicodeRanges的使用

// 获取选择的字体的所有Unicode范围
procedure TMarkerSymForm.doGetUnicodeRange;
var
  size : DWORD;
  lpgs : PGlyphSet;
  i, j : Integer;
  nStart, nEnd : Integer;
  oldFont : string;
begin
  m_Unicode := ' ';

  oldFont := dgCMCharacter.Canvas.Font.Name;
  dgCMCharacter.Canvas.Font.Name := fcboCMFont.FontName;

  size := GetFontUnicodeRanges(dgCMCharacter.Canvas.Handle, nil);

  if size < > 0 then begin
    GetMem(lpgs, size);
    GetFontUnicodeRanges(dgCMCharacter.Canvas.Handle, lpgs);

    for i := 0 to lpgs.cRanges do begin
      nStart := Integer(lpgs.ranges[i].wcLow);
      nEnd   := nStart + lpgs.ranges[i].cGlyphs;

      for j := nStart to nEnd do begin
        m_Unicode := m_Unicode + WChar(j);
      end;
    end;

    Dispose(lpgs);
  end;

  dgCMCharacter.Canvas.Font.Name := oldFont;

end;

// m_Unicode保存字体中所有的Unicode宽字符