我用的是fastreport 4.68
这个版本中有个单元:ConverterQR2FR.pas,就是用来将 quickrep转换成fastreport的,转换过程中,注意事项:
1.代码中要 using ConverterQR2FR
2.quickreport要4.0以上的版本,delphi6自带的版本缺少一个const定义,无法转换 delphifasns.com上有quickrep4.05的下载
3.默认转换时可能会出现中文乱码,当时第一印象就是字符集,马上打开ConverterQR2FR.pas看了一下,有如下这段话:
if Lbl.Caption = '' then
Memo.Memo.Text := Lbl.Lines.Text
else
Memo.Memo.Text := Lbl.Caption;
Memo.Font.Assign(Lbl.Font);
然后我改了一下:
//Memo.Font.Assign(Lbl.Font); Memo.Font.Size := lbl.Font.Size;
Memo.Font.Name := lbl.Font.Name;
memo.Font.Color := lbl.Font.Color;
memo.Font.Charset := lbl.Font.Charset;
调试一下发现,果然是这个charset的问题
最终解决方案是
Memo.Font.Assign(Lbl.Font);
//Memo.Font.Size := lbl.Font.Size;
//Memo.Font.Name := lbl.Font.Name;
//memo.Font.Color := lbl.Font.Color;
memo.Font.Charset := 1;