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

用下面的替换文件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;

标签：Delphi, FastRepot

另中文的字字体要用中文的字体，比如宋体就可以正常导出了。

改完之后要记得更新frxExportPDF.dcu有的时候原代码和用的地方不一样的

转自：http://hi.baidu.com/esocu/item/cb7e14f69286852e753c4c5d