請問各位前輩… 看過前面文章有提到若內容太長自動斷行的做法… 也就是將QRdbtext的autosize設為false、autostretch設為true… 但是試了之後…應該是有斷行…但第二行為空白… 不曉得是什麼原因…？ 請各位前輩能指點一下…謝謝！^^

WordWrap
property WordWrap : Boolean

Applies to

TQRCustomLabel, TQRLabel

Description

The WordWrap property controls how a line of text that is too long to fit in the width of the control is printed. If WordWrap is True the text will be wrapped to a new line. If the AutoStretch property is True this might make the control expand vertically.

If WordWrap is False the text will be clipped. WordWrap is True by Default
附上help的說明，Description的中文翻譯如下:
WordWrap這個屬性用來控制當文字長度超過控制項寬度時的情況，WordWrap設為True時，過長的文字會自動折行到新的一行。如果AutoStretch的屬性也為True時，控制項會以垂直延展的方式來變化。
如果WordWrap的屬性設為False，顯示的文字超過的部分會被截斷無法看到。WordWrap的預設值為True。

謝謝前輩的說明… 看過說明後… wordwrap設為true…應該是會換行… 但還是看不到第二行的文字… 可它有空第二行的位置出來說…><~~    

引言: 附上help的說明，Description的中文翻譯如下:
WordWrap這個屬性用來控制當文字長度超過控制項寬度時的情況，WordWrap設為True時，過長的文字會自動折行到新的一行。如果AutoStretch的屬性也為True時，控制項會以垂直延展的方式來變化。
如果WordWrap的屬性設為False，顯示的文字超過的部分會被截斷無法看到。WordWrap的預設值為True。

這位女施主,老衲不過問武林中事很久了,前輩這二字對老衲而言:    把我叫太老了啦   < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=8702039&CC=194621"> 發表人 - hahalin 於 2003/03/30 17:34:13 發表人 - hahalin 於 2003/03/30 17:36:20 發表人 - hahalin 於 2003/03/30 17:36:53

這是因為 Quick Report 的斷行控制只是以西方文字的斷行為基準，即是在空白，Tab等地方斷行。所以當我們用中文字而中間沒空白字元時，Quick Report 便不懂得斷行了。那為甚麼有時下面會留一空白行呢，就是因為 QuickReport 計算到需要斷行預留了空位，但卻不懂在那裡斷而沒斷行所致。 我自己的解決辦法是設個功能每 n 個字自動加入一個空白(用 length / copy 等功能)，然後給 QRLabel / QRMemo 來顯示，那 QuickReport 就會斷行了，而 n 的數值因應該Label 能顯示多少個字元而定。

高手一出手 便知有沒有 小弟也學到了 感謝感謝

歹勢啦…< > 把你叫老了… 我不是故意的…< >

引言: 這位女施主,老衲不過問武林中事很久了,前輩這二字對老衲而言: 把我叫太老了啦 < face="Verdana, Arial, Helvetica">

呼呼…原來是這樣… 那我試看看嚕… 只是為何要給 > <>< face="Verdana, Arial, Helvetica">引言: 這是因為 Quick Report 的斷行控制只是以西方文字的斷行為基準，即是在空白，Tab等地方斷行。所以當我們用中文字而中間沒空白字元時，Quick Report 便不懂得斷行了。那為甚麼有時下面會留一空白行呢，就是因為 QuickReport 計算到需要斷行預留了空位，但卻不懂在那裡斷而沒斷行所致。 我自己的解決辦法是設個功能每 n 個字自動加入一個空白(用 length / copy 等功能)，然後給 QRLabel / QRMemo 來顯示，那 QuickReport 就會斷行了，而 n 的數值因應該Label 能顯示多少個字元而定。

由於 QRDBText 是直接從數量集元件提取資料的，所以若果你要用 QRDBText 來做，便要做一個 Calculated Field，或是在 OnGetText 做手腳，反而更煩更浪費資源；不如在 Before Print 直接處理後給 TQRLabel 列印更實際。    我剛才找了找幾年前寫的程式，找到這個 :

  function ChiWrap(Memo : String;LineLen : Integer) : String;
  var
    MemoList, ResultList : Tstrings;
    i : integer;
    WS : WideString;
  begin
    MemoList := TStringList.Create;
    ResultList := TStringList.Create;
    try
      MemoList.Text := Memo;
      for i := 0 to MemoList.Count -1 do
      begin
        WS := MemoList[i];
        while Length(WS) > LineLen do
        begin
          ResultList.Add(Copy(WS,0,LineLen));
          WS := Copy(WS,LineLen 1,Length(WS));
        end;
        ResultList.Add(WS);
      end;
      Result := ResultList.Text;
    finally
      MemoList.Free;
      ResultList.Free;
    end;
  end;

這幾年都甚少用 QReport 了，這功能寫得不大好但也沒動力去改善了。 例 : QRLabel1.Caption := ChiWrap(Table1.FieldByName('ChiDesc').AsString,40); 修改 : 再看一看才發現居然沒 Free 了那兩個 StringList 。唉... 發表人 - Justmade 於 2003/03/30 18:54:35

我試了之後… 預覽的結果都是同一筆… 也就是只有一筆在重覆show資料… < class="code"> procedure TForm1.Button1Click(Sender: TObject); begin while not form2.Query1.eof do begin form2.QRLabel1.Caption := ChiWrap(form2.Query1.FieldByName('QL_TEXT').AsString,40); next; form2.QuickRep1.preview; end; end;

引言: 由於 QRDBText 是直接從數量集元件提取資料的，所以若果你要用 QRDBText 來做，便要做一個 Calculated Field，或是在 OnGetText 做手腳，反而更煩更浪費資源；不如在 Before Print 直接處理後給 TQRLabel 列印更實際。 我剛才找了找幾年前寫的程式，找到這個 : 這幾年都甚少用 QReport 了，這功能寫得不大好但也沒動力去改善了。 例 : QRLabel1.Caption := ChiWrap(Table1.FieldByName('ChiDesc').AsString,40); 修改 : 再看一看才發現居然沒 Free 了那兩個 StringList 。唉... 發表人 - Justmade 於 2003/03/30 18:54:35

QRLabel1.Caption := ChiWrap(Table1.FieldByName('ChiDesc').AsString,40); 要寫在那個 QRLabel 的 BeforePrint 事件 或 該 band 的 BeforePrint 事件耶。

哈哈…真神奇…可以了耶…^^ 原來function是這樣使用的呀… 都沒自己寫過function說…^^" 謝謝你… <>< face="Verdana, Arial, Helvetica">引言: QRLabel1.Caption := ChiWrap(Table1.FieldByName('ChiDesc').AsString,40); 要寫在那個 QRLabel 的 BeforePrint 事件 或 該 band 的 BeforePrint 事件耶。