Qreport打印的问题 用QRMemo控件,打印内容字数太多,怎么让它自动换行呢?wordwrap属性为true也不行,求助! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 呵,看下面的.思路,用一个Memo控件.想不到吧.再加上下面方法就行啦.procedure lineBreakQRMemo(text: string; const textMemo: TMemo; const QRMemo: TQRMemo);var i: integer;begin textMemo.Width := QRMemo.Width; textMemo.Height := QRMemo.Height; textMemo.Font.Name := QRMemo.Font.Name; textMemo.Font.Size := QRMemo.Font.Size; textMemo.Text := text; QRMemo.Lines.Clear; for i := 0 to textMemo.Lines.Count - 1 do QRMemo.Lines.Add(textMemo.Lines.Strings[i]);end;参数就不用我说了吧. 如何取出clientdataset中被修改的数据 各位兄弟帮忙看看!高分请教ICDecompress解压成功,但是数据好像没有输出!2个帖子共280分!内祥 新手问题 日期类型转换成字符串类型(DateToStr)时候有时候出现文字(上午或者下午),怎么解决? 关于Delphi6中文版 如何进行数据转换!! 刚刚爬上四座小山,特来感谢大家支持,散分! BCB_FANS(四大名捕之追杀令)请来拿分 1 用Basic开发OpenGL ! 菜鸟问题 怎样在字符串里加入'号字符? 如何在指定目录下查找一个文件(在线等待) 字符串类型值如何转换成枚举型
var
i: integer;
begin
textMemo.Width := QRMemo.Width;
textMemo.Height := QRMemo.Height;
textMemo.Font.Name := QRMemo.Font.Name;
textMemo.Font.Size := QRMemo.Font.Size;
textMemo.Text := text;
QRMemo.Lines.Clear;
for i := 0 to textMemo.Lines.Count - 1 do
QRMemo.Lines.Add(textMemo.Lines.Strings[i]);
end;参数就不用我说了吧.