在DELPHI5的报表打印中怎么换行？？？？？？十万火急！！救兄弟一把！！！

[wangkun007]

在DELPHI5的报表打印中怎么换行？？？？？？十万火急！！救兄弟一把！！！
小弟在着先谢过你了！！！！

[962veiri]

你使用什么来做的报表????空件?? 还是Printer??

[wangkun007]

我用的控件！！！！！

[962veiri]

什么空件?? QuickReport?你要对什么换行????
说一下你的具体要求!

[wangkun007]

是Quickreport控件！！！对数据库里面一个字段内容换行！！！

[962veiri]

呵呵,有两中办法:
1:你把他的WordWrap属性设置为true;
2:用QRDBMemo空件代替QRDBEdit空件,然后将你要显示的字段内容读到Memo里面去就行
知道怎么作吗??

[wangkun007]

DELPHI5中没有QRDBMemo控件！！好象只有QRMemo控件它不能挂数据库吗！！
WORDWRAP属性好象也是QRMemo控件的属性！！！！！

[962veiri]

:-),利用QRMemo空件一样!!
不要连数据库,就是用程序将你要显示的字段内容插入到QRMemo里面去就可以了

[wangkun007]

打印一条还可以！！打印几千条呢？？？？？？？

[962veiri]

什么意识??
你不会要打印所有的内容?

[man8888]

text型字段用TQRDBRichText
如果你的字段类型为char,varchar类型的请在你TDBText组件的
OnPrint事件里调用我写的下列换行函数：
{------------------------------------------------------}
{
功能：对一个Pascal字符串进行定长换行处理
入口参数：Value -- 要转换的Pascal字符串, max_len_line -- 每行Unicode字符个数。
返回结果：转换后的字符串。
}
function wrap_line(Value: String; max_len_line: integer ): String;
var
ws: WideString;
s: string;
begin
ws:= Value;
s:= '';
while length(ws) > MAX_LEN_LINE do begin
s:= s + Copy(ws, 1, MAX_LEN_LINE) + #13;
delete(ws, 1, MAX_LEN_LINE);
end;

Result:= s + ws;
end;
{--------例子----------}
procedure TForm2.QRDBText4Print(sender: TObject;
var Value: String);
begin
Value:= wrap_line(Value, 5); //每行5个Unicode字符
end;

****注意：将TDBText的属性：*****
AutoSize:= false //将其拉大一下
AutoStretch:= true
WordWrap:= true //默认的
{--------更多的公用函数，组件，请到我的主页------}
{--------去下载tzdgg.freephp.digiro.net----------}

[tommychim]

用onprint事件也可以啊
放两个qrlabel,在qrlabel1的onprint事件里写value:='换';qrlabel1.caption:='行';