delphi中报表的折行问题

Question

在我的报表中，有一个字段的长度很长，打印报表时需使这个字段自动回行，望各位高手赐教！
如表的内容如下：
  姓名 年龄  性别  毕业院校  家庭住址                              备注
  王珊  30   女   北京大学  北京市东城区小马路1号街坊3号楼2单元402  DFGJHDFGHJDFGHJDFGJHSDFGDJGJHDFGJHDFGJDFJGDFJGJDFGJHDSGJDFGJHSDFJGSDJFGJHSDFJ
 李四   21   男   天津大学  天津市河东区程林庄道43号                AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
 王五   35   男   河北大学  内蒙古呼和浩特市新城区哲盟路80号       ASDFDASFGDFGSDFGSFDGSDFGSDFGSDFHGFDGHFGJHFGJHFGJH
.......设计的报表如备注字段过长时,让此字段自动回行.

Answer 1

用qrlabel控件，把它长宽拉到足够大，然后设置autosize:=false;
wordwarp:=true;
autostretch:=true;
然后在qrlabel.onprint中写：
value:='AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA';
或：
value:=fieldbyname('fieldname').asstring;

Answer 2

用QRRichText1；
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  self.QRRichText1.Lines.Text:='aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa';
end;

Answer 3

可就使用QRdbtext控件
autosize:=false;
autostretch:=true;
将控件宽度调整到需显示的宽度procedure TForm2.QRDBText3Print(sender: TObject; var Value: String);
begin
  value:=self.sp(22,Value);//功能：对Value处理，在换行处插入#13换行符
end; 以上方法一定行，我试过

Answer 4

用我的控件简单实现！http://www.csdn.net/cnshare/soft/15/15471.shtm