在数据库中因版面所限，字段的换行打印,换行后能与首行内容对齐

Question

使用ereport支持自动换行的,并且使用简单,对于一般的报表足够用了.

Answer 1

我是自己处理onneeddata 把值赋给QRLable
    if MoreData then
      if not QyItem.Eof then begin
        MoreData :=true;
        if Line='' then begin
          Line:=QyItem.FieldByName('Matter').AsString ;
          QyItem.Next ;
        end;
        if ByteType(Line,RowLen)<>MbLeadByte then TrueRowLen:=RowLen
          else TrueRowLen:=RowLen-1;
        QRLable.Caption :=Copy(Line,1,TrueRowLen);
        Delete(Line,1,TrueRowLen);
      end
      else QRLable.Caption :='';