关于FastReport中导入PDF楷体＋GB2312_CHARSET正常，宋体不正常解决

用下面的替换 TfrxPDFFont.GetFontName: AnsiString 中的同名函数

  function HexEncode7F(Str: WideString): AnsiString;
   var
     s: AnsiString;
     t: AnsiString;
     Index, Len: Integer;
   begin
     s := '';
     t := Str;
     Len := Length(t);
     Index := 0;
     while Index < Len do
     begin
       Index := Index + 1;
       if Byte(t[Index]) > $7F then
         s := s + '#' + AnsiString(IntToHex(Byte(t[Index]), 2))
       else
         s := s + AnsiString(t[Index]);
     end;
     Result := s;
   end;

转载于:https://www.cnblogs.com/fyen/archive/2010/12/18/1909731.html