会否BUG！关于TQRDBText的折行问题！

[hostname]

我想实现报表打印时，若太长的话则进行折行，程序中已设置autoStretch为true以及wordWrap为true，但打印时会出现如下问题（数据来源于SQL Server）
若数据为汉字如‘中国程序员开发网络’或‘A B C D E F G H I J’或‘1 2 3 4 5 6 7 8 9’打印的结果是可以折行如‘中国程序开发 ‘A B C D E F ‘1 2 3 4 5 6
网络’ G H I J’ 7 8 9 '
若数据为‘ABCDEFGHIJKLM’或‘1234567890’亦或‘A.B.C.D.E.F.G’或‘1.2.3.4.5.6.7’
打印的结果则为‘ABCDEFGH’或‘12345678’或‘A.B.C.D.E.’或‘1.2.3.4.5.’即不能实现折行的功能

请各位大虾指点迷津！

[liang_z]

这应该是一个Windows的多语言支持功能，如果是一个中间没有空格的
字符串，Windows会把它作为一个单词来进行处理，而同一个单词一般
不会进行分行的。如果真要分行那真是您老的不幸啊！

[flyby]

但他也不能将1234567890当成英语单词呀

[BlackApple]

老兄？我觉得是BUG了，因为我根据DELPHI本身的帮助（他有一个这方面的提示步骤）去做也是白搭，很烦躁的呢，把我给还哭了

[llhh]

用TQRDBText办不到，我有一个报表控件，可以随心所欲地打印。
[e-mail]

[zdygis]

你用的一定是Delphi5以上的版本，在Delphi4中QRDBText是可以换行的。不过关系也不大，可以用以下方法解决：
1、首先，做一个函数控制字符串换行；
Function MitiLine (Str:String;N:Integer):String;
var L,I:Integer;
Strs:String;
Begin
L:=Length(Str);
L:=Round(L/N+0.5);
If L=0 Then
begin
Result:=Str;
Exit;
End;
For I:=1 To L Do Strs:=Strs+Copy(Str,N*(I-1)+1,N)+#13;
Result:=Strs;
End;

其中：Str是要控制的字符串，N是一行显示的字符数（注意汉字为双字符）。

2、然后，在报表打印前调用该函数。
如：
QRDBText1.Caption:=MitiLine(QRDBText1.Caption,24);
Preview;
这样就可以了。