如何让报表中的文字能够自动换行，长度小于100

Question

好像delphi做报表的功能很差。

Answer 1

用qrmemo和memo联合,方法很多
for i:=form1.memo1.lines.count-1
  qrmemo1.lines.add(form1.memo1.lines[i]);

Answer 2

将qrdbtext的autosize设置为false，autostretch设置为true，wordwrap设置为true，然后给它一个长度，显示时，超过这个长度的话将折行。

Answer 3

你们没有仔细了解读者的问题，如果是英文内容却是没问题，如果是中文这种多字节内容却不行，原因是是他的函数AddWord写的有问题，在Qrctrls.pas单元中。

Answer 4

放一个memo:Tmemo;再报表所在的Form上,visible:=false;uses windows;QRLabel1.Caption:='的司法局对方螺......';
Memo1.Text:=QRLabel1.Caption;
sendmessage(Memo1.handle,em_fmtLines,integer(true),0);
QRLabel1.Caption:=Memo1.Text;
QRLabel1.Caption:=StringReplace(Memo1.Text,#$D#$D#$A,#$D#$A,[rfReplaceAll]);