如何使在quickrep的qrdbtext内的中文字自动转行？

Hi:    請將該 QRDBText AutoSize 設為 False，AutoStretch 設為 True 再試試看     -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

那样做不行的，我试过了

Hi :    Sorry!! 我誤解你的意思啦，我想這大概是 QuickReport 的一個 Bug 吧，不過我已經想到一個 Solution，正在測試中，等我好消息。     -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

QRdbtext.autosize := false; QRdbtext.autostretch :=true; QRdbtext.wordwrap := true; 然後請記的將QRdbtext的高度拉至兩行以上... TRY TRY SEE 發表人 - chih 於 2003/11/26 16:15:54

先谢谢你了

Hi:    我試出來了，不過仍有部分缺陷 程式碼如下：    

procedure TForm1.QRDBText4Print(sender: TObject; var Value: String);
VAR
    I : Integer;
    OriStr : Array[0..1000] OF Char;
    V_Chinese : Boolean;
begin
    IF Not (Sender AS TQRDBText).AutoSize THEN
        BEGIN
            StrPCopy(OriStr,Value);
            V_Chinese := False;
            FOR I := 0 TO Length(Value) - 1 DO
                BEGIN
                    IF ORD(OriStr[I]) > 127 THEN
                        BEGIN
                            V_Chinese := True;
                            Break;
                        END;
                END;
            IF V_Chinese THEN
                Value := ApartString(Value,10)
            ELSE
                Value := Value;
        END;
end;    function TForm1.ApartString(InStr : String ;MaxLen : Integer) : String;
var
    P: Integer;
    S,L : String;
    OriStr : Array[0..1000] OF Char;
    OutStr : String;
begin
    P := 0;
    L := '';
    OutStr := '';
    StrPCopy(OriStr,InStr);
    WHILE P <= Length(InStr) - 1 DO
        BEGIN
            IF ORD(OriStr[P]) > 127 THEN
                BEGIN
                    S := Copy(OriStr,P   1,2);
                    Inc(p)
                END
            ELSE
                BEGIN
                    S := Copy(OriStr,P   1,1);
                END;
            Inc(p);
            IF Length(L   S) > MaxLen Then
                BEGIN
                    OutStr := OutStr   L   #13;
                    L := S;
                END
            ELSE
                BEGIN
                    L := L   S;
                END;
        END;
    OutStr := OutStr   L;
    ApartString := OutStr;
end;

在 TQRDBText 的 OnPrint 事件中重組字串， Function ApartString 主要功能為將列印之字串加入 Enter 強迫 QuickReport 作換行動作，MaxLen 為設定最大可列印之 byte 數，除以 2 即可得到中文字數，若該值可由 TQRDBText 的 Width 與 Font 等相關設定自動算出，那就更完美了，待找到相關資料再行補上，不知到有沒有人知道？ -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

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

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

這樣就行啦，試試看 -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman