完美解决FastReport3和FastReport4导出PDF文件乱码

最新推荐文章于 2024-07-27 01:37:38 发布

trassion

最新推荐文章于 2024-07-27 01:37:38 发布

阅读量1.2w

点赞数

分类专栏： Report delphi

delphi 同时被 2 个专栏收录

63 篇文章 2 订阅

订阅专栏

Report

19 篇文章 0 订阅

订阅专栏

用下面的替换文件frxExportPDF.pas中的TfrxPDFFont.GetFontName: AnsiString 中的同名函数即可。
将原代码：

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

替换为以下代码：

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;