FastReport 导出Pdf 乱码

还是老问题，保存PDF字体时字体名编码错误，和2.x/3.x时一样的错误，修正其实很简单。

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

  function HexEncode7F(Str: WideString): AnsiString;
  var
    s: AnsiString;
    // add by ijia 2010-04-05
    t: AnsiString;
    Index, Len: Integer;
  begin
    s := '';
    // add by ijia 2010-04-05
    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;

转载自 http://bbs.2ccc.com/topic.asp?topicid=351425