DELPHI控件FastReport中文Memo显示问题的完美解决方案

 本文转自http://www.daxie.net/blog/read.php?56#topreply，因为我用的FastReport版本还要高，所以没有用到作者提到的第三种解决方案。

问题描述，正如rainee所说：程序设计时Memo中的中文显示正常，预览也正常。程序运行时Memo中的中文只能显示前几个汉字，有时甚至不能显示。再次打开程序源码，会发现Memo中的中文没保存下来或保存不完全。如果用Memo显示字段或变量的值，其中的中文显示正常。
除了文章提到的方法外，FastReport4.7.91的TfrxReport有StoreInDFM属性，将其设为false, 在运行时动态加载报表文件，语句如下frxrprtPrintCheck.LoadFromFile('a.fr3');然后预览打印都没有问题。

担心原文作者文章地址有变动，特转载如下：

FastReport3.15以上版本（包括最新的3.23.9）都存在一个问题：程序设计时Memo中的中文显示正常，预览也正常。程序运行时Memo中的中文只能显示前几个汉字，有时甚至不能显示。再次打开程序源码，会发现Memo中的中文没保存下来或保存不完全。如果用Memo显示字段或变量的值，其中的中文显示正常。
    网上能找到的解决方法主要有两种：
一、在FastReport中添加变量，设置Memo的内容为变量的值，在报表的GetValue事件中给变量赋值。如果你的报表中有许多Memo的值相同，用这种方法最方便。
procedure TForm1.frxReport1GetValue(VarName: String; var Value: Variant);
begin
if CompareText(VarName, 'MyVar1') = 0 then
Value := 'Hello.';
end

二、设计时Memo内容为空，在Show报表前给Memo控件赋值。
procedure SetMemoData(aReport: TfrxReport; aMemoName, aString: string);
var
  mv: TfrxMemoView;
begin
  mv := aReport.FindObject(aMemoName) as TfrxMemoView;
  if mv<>nil then
    mv.Text := aString;
end;

    这里要讲的第三种方法是我最近发现的：
三、用FastReprot Studio3.20设计报表。
    FastReprot Studio3.20是独立的可直接联接数据库做报表的程序，用它做报表和在Delphi中操作完全一样，它的Memo中可设置中文内容，并且能正常显示，保存后也不会丢失。然后在Delphi中调用保存好的报表，这样Memo中的中文显示就没问题了。

/
这是在CSDN搜索到的，供参考

Fastreport3.x对中文的支持有问题.例如:frxMemoView中如果填了中文,那么StoreInDFM设时就会有问题.

中文显示不出来.

网上之前也流行了一些解决办法,如:用变量保存中文,运行时再赋值,又或者用另外的独立的设计器来设计报

表.但我觉得这些办法都不好,因为它改变了程序员的使用习惯.

其实问题出Fastreport3.x把widestrings属性持久化到DFM时.因为它会先把text转换成Utf8格式再保存.但

delphi本身对Utf8的支持又不太好,(我发现两个以上的Utf8格式字符串相加有时会出错),所以我把widestrings

这个类持久化函数改了一下去掉了Utf8的转换部份,就把问题切底解决了.

frxUnicodeUtils单元下:
把TWideStrings类的ReadDataW和WriteDataW函数中关于Utf8的转换去掉

具体是：

ReadDataW:
    //Add(Utf8Decode(Reader.ReadString));
    Add(Reader.ReadString);

WriteDataW:
    //Writer.WriteString(Utf8Encode(Get(I)));
    Writer.WriteString(Get(I));


    总结：FastReport中文Memo显示不正常的原因大概是Delphi在dfm文件保存FastReport的报表控件时出了问题，不在dfm文件中保存报表，就不会有这个问题了。