请教各位大哥一个问题,我在票据套打系统中,已将文字换行,如何在打印的时候也是换行的?分不够可以加 我是用TPrinter套打的,请各位大哥帮我看看!谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 如果你是用TQuickReport做的报表,那么用以下方法换行:{------------------------------------------------------}{功能:对一个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;//调用方法OnPrint事件中写代码:procedure TForm1.QRDBText4Print(sender: TObject; var Value: String);begin Value:= wrap_line(Value, 15);end; 把打印内容绑定在MEMO控件上,就可以实行换行了. 有没有HTML的编辑控件 关于直接用代码创建控件 请问有没有简便的方法用编程的方式去创建虚拟目录和站点? 如何在按纽或标签上做超级链接? ReportBuild报表预览时有数据,打印结果为空!?恳请个位XDJM指教 向大家请教一个调用窗体Dll的问题 invalid Data Packet? 急!急!急!急!急!(可以多送分) ----------------如何处理这样的字符串,有没什么好的思路?-----------------[请教] 非要程序退出后才查的到新增记录? 正版真尴尬 小的笨,没有学好pas真该死! 调用.HLP类型的帮助文件时如何显示出整个目录项:请高手解答
{------------------------------------------------------}
{
功能:对一个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;//调用方法OnPrint事件中写代码:
procedure TForm1.QRDBText4Print(sender: TObject;
var Value: String);
begin
Value:= wrap_line(Value, 15);
end;