1.在需要显示换行的字段的地方用TQRMemo,并调整好TQRMemo的长度和宽度(显示字段的最大范围,你想要的方式); 2.在报表所在的Form上放一个TMemo控件,由它来负责解决换行问题,在TQRMemo所在的band的BeforePrint事件中写代码,具体如下 var i: integer; begin memo1.lines.clear; TQRMemo.lines.clear; memo1.width:= TQRMemo.Width; memo1.lines.text:= ADODataSet1.FieldByName('字段名').AsString; for i:= 0 to memo1.lines.Count - 1 do QRMemo.lines.Add(memo1.lines.strings[i]); end; 只要在需要的地方依上面的方法处理就行。 其中的memo1的宽度可以控制换行的长度。
2.在报表所在的Form上放一个TMemo控件,由它来负责解决换行问题,在TQRMemo所在的band的BeforePrint事件中写代码,具体如下
var
i: integer;
begin
memo1.lines.clear;
TQRMemo.lines.clear;
memo1.width:= TQRMemo.Width;
memo1.lines.text:= ADODataSet1.FieldByName('字段名').AsString;
for i:= 0 to memo1.lines.Count - 1 do
QRMemo.lines.Add(memo1.lines.strings[i]);
end;
只要在需要的地方依上面的方法处理就行。
其中的memo1的宽度可以控制换行的长度。