TQRDBText 中文不會自動換行

bestlong

設計 QuickReport 的報表

已將 QRDBText 元件的屬性設定如下：

AutoSize := False;
AutoStretch := True;
WordWrap := True;

在英文資料時會換行，但在中文資料時就沒有換行

bestlong

只好手動處理

1. procedure AutoWrapRow(wide: integer; var value: string);
   
2. var
   
3.    tempArr: Array of string;
   
4.    wideLen, i, j: integer;
   
5.    s: WideString;
   
6. begin
   
7.    j := 1;
   
8.    s := value;
   
9.    widelen := length(s);
   
10.    SetLength(tempArr, j);
    
11.    tempArr[0] := '';
    
12.    for i := 1 to wideLen do
    
13.       begin
    
14.          if Length(tempArr[j-1]) + Length(s[i]) > wide then
    
15.             begin
    
16.                j := j + 1;
    
17.                setlength(tempArr, j);
    
18.                tempArr[j-1] := s[i];
    
19.             end
    
20.          else
    
21.             begin
    
22.                 tempArr[j-1]:= tempArr[j-1] + s[i];
    
23.             end;
    
24.       end;
    
25.    s := '';
    
26.    for i := 0 to Length(tempArr)-2 do
    
27.        s := s + tempArr[i] + chr(13);
    
28.    value := s + tempArr[Length(tempArr)-1];
    
29.    tempArr := nil;
    
30. end;

複製代碼

請在 QRDBText 的 OnPrint 事件中呼叫 AutoWrapRow() 來處理換行，中文不會亂碼

1. procedure TForm1.QRDBText9Print(sender: TObject; var Value: String);
   
2. begin
   
3.   AutoWrapRow(24, Value); // 24 為一行的字數
   
4. end;

複製代碼

其他的 Quick Report 元件 QRLabel, QRMemo, QRDBMemo...等等也都適用，不過就是要自行量測可以列印的字數寬度。

bestlong

看到另一個辦法就是放一個 TMemo 元件來幫忙負責換行，把換好行後的 Lines 再 Assign 回來即可。

1. procedure TqrWeekQA.QRDBTxtInTimePrint(sender: TObject; var Value: String);
   
2. var  I: Integer;
   
3. begin
   
4.   with Sender as TQRDBText do
   
5.   begin
   
6.     meCutWord.Font.Assign(Font); //指定字型
   
7.     meCutWord.Width := Width;    //指定寬度
   
8.     meCutWord.Lines.Clear;       //清除上一次的東西
   
9.     meCutWord.Lines.Text := Value; //把 value assign 進去
   
10.     Value := meCutWord.Lines.Strings[0];
    
11.     for I := 1 to meCutWord.Lines.Count - 1 do
    
12.     begin
    
13.       Value := Value + #13 + meCutWord.Lines.Strings; //逐行取出再塞回去
    
14.     end;
    
15.   end;
    
16. end;

複製代碼

參考來源
http://vclxx.org/forum/index.php?topic=22428.0

bestlong

一個更簡單的方法：
1. 加一個 TQRRichText
2. 在該 TQRRichText 的 band 的 BeforePrint 事件中，加入以下以下程式碼

1. procedure TForm1.QRBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);
   
2. begin
   
3.   QRRichText1.Lines.Clear;
   
4.   QRRichText1.Lines.Add(Query1.FieldByName(欄位名稱).AsString);
   
5. end;

複製代碼

參考來源
http://delphi.ktop.com.tw/board. ... id=66&tid=41104
http://delphi.ktop.com.tw/board. ... d=100&tid=44298

bestlong

QuickReport里TQRText对中文居然不能正确换行，即使设置了WordWarp属性为True。QuickReport就是Bug多多，现在Delphi已经改带Rave，QuickReport已经被抛弃了，估计它的开发工作也快停止了。可是有时候遇到历史遗留问题，还是不得不面对它的。为了这个不能换行的问题郁闷了好久。有人采用直接改正QuickReport源代码里的AddWord方法，似乎一劳永逸啊，可是改起来还是有点难度的。当多人合作的时候，其他人也得改。在网上看到一个利用TMemo的自动换行功能来解决问题的方法，感觉不错。我也想过相似的思路，不过我想的是TRichEdit。不过发现一个bug，TRichEdit里不能显示字符“°”（度数 ），TQRRichText也一样，会出现“RichEdit line insert error”。恰好我做的报表包括字符“°”,恰好撞上,所以我的方法失败了。估计这是Borland在实现TRichEdit时的Bug。而TMemo就可以显示“°”。
具体说一下利用TMemo的解决方法：
1.在报表所在的Form上放一个TMemo控件Memo1,一个就够,由它来负责解决换行问题
2.在需要显示换行的字段的地方用TQRMemo替代TQRDBText，并调整好TQRMemo的长度和宽度（显示字段的最大范围）；
3.在TQRMemo所在的band的BeforePrint事件中调用PrepareQRMemo

1. procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);
   
2. begin
   
3. ...
   
4. PrepareQRMemo(qrmmBZ, '备注');
   
5. ...
   
6. end;
   
7. 
   
8. procedure TForm1.PrepareQRMemo(aQRMemo: TQRMemo; FieldName: string);
   
9. begin
   
10.   Memo1.Lines.Clear;
    
11.   Memo1.Width := aQRMemo.Width;
    
12.   Memo1.Lines.Text := ds.FieldByName(FieldName).AsString;
    
13.   aQRMemo.Lines.Assign(Memo1.Lines);
    
14. end;

複製代碼

參考來源 http://arming.ycool.com/post.610253.html