在DELPHI5的报表打印中怎么换行??????十万火急!!救兄弟一把!!! 你使用什么来做的报表????空件?? 还是Printer?? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 什么空件?? QuickReport?你要对什么换行????说一下你的具体要求! 是Quickreport控件!!!对数据库里面一个字段内容换行!!! 呵呵,有两中办法:1:你把他的WordWrap属性设置为true;2:用QRDBMemo空件代替QRDBEdit空件,然后将你要显示的字段内容读到Memo里面去就行知道怎么作吗?? DELPHI5中没有QRDBMemo控件!!好象只有QRMemo控件它不能挂数据库吗!!WORDWRAP属性好象也是QRMemo控件的属性!!!!! :-),利用QRMemo空件一样!!不要连数据库,就是用程序将你要显示的字段内容插入到QRMemo里面去就可以了 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----------} 用onprint事件也可以啊放两个qrlabel,在qrlabel1的onprint事件里写value:='换';qrlabel1.caption:='行'; delphi cxgrid主从简单问题 卡巴斯基泄露的v8代码1G多啊 三层架构,如何取得服务器时间(数据库用Access) 现场给分,为什么简单的代码却会出错///窗体调用。。 关于数据显示问题。谢谢各位 用什么方法改变ftp上的文件名称? 写文本时候的问题? 如何在程序中备份Oracle数据库?在线等待! ■■[HOT]: 关于提高CSDN访问速度的若干决议 ■■ 有关于panel 请问怎样在程序中执行Dos命令 SendMessage
说一下你的具体要求!
1:你把他的WordWrap属性设置为true;
2:用QRDBMemo空件代替QRDBEdit空件,然后将你要显示的字段内容读到Memo里面去就行
知道怎么作吗??
WORDWRAP属性好象也是QRMemo控件的属性!!!!!
不要连数据库,就是用程序将你要显示的字段内容插入到QRMemo里面去就可以了
如果你的字段类型为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----------}
放两个qrlabel,在qrlabel1的onprint事件里写value:='换';qrlabel1.caption:='行';