最後だけ改行されない (ID:20171)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

みなさんこんにちわ。いつもお世話になっています。

新たな修正ＰＧを「原因がわからないけどよろしく」と
丸投げされて半泣きの状態でございます；

現在、Ａ画面にリッチテキスト（多分）があり、
（「多分」というのはオリジナル名称が入っていて元がわかりません
  ひょっとして元からあるオブジェクトではないのかもしれません）
そのテキスト部分に他ボタン等からコンボボックス等が
生成されるように出来ています。
生成後、Ａ画面にある「確定」ボタンを押下すると、

Ｂ画面のリッチテキストに、Ａ画面の内容を
文章で貼り付けるような形になっています。

現在の不具合は、Ａ画面でスケジュールを作るのですが、
Ａ画面には１日〜３１日＊２ヶ月分で６２個のコンボボックスがあります。
並び方としては、７月１日〜３１日まで縦一列
８月１日〜３１日まで縦一列で横に二列という感じです。
Ａ画面でみる並びではちゃんと横二列で表示されているのですが、

これをＢ画面に確定させると、
最後の行だけ改行されていません。

29日(水)  米  肉    29日(木)  米  魚
30日(木)  粥  豆    30日(金)  粥  魚31日(金)  米  肉    31日(土)  粥  肉

という感じです。それまでは綺麗に改行されているのですが
最後だけ改行出来ていない。というイメージです。
リッチテキストなので31日のところでEnterを押せば対応出来るのですが、
面倒なので改修して欲しい。との事で渡されました。

ここが原因ではないかと思われるプログラムを抜き出してみました。

TabHanyo_Rx .Lines.BeginUpdate;

CDataSet.First;
  while not CDataSet.Eof do begin
    BufWrds := {BufWrds + }CDataSet.FieldByName('コメント').AsString;
    if CDataSet.FieldByName('画像').IsNull = True then begin
      wColor := clBlack;
      if CDataSet.FieldByName('改行フラグ').AsInteger =1 then
        WriteWrds(TabHanyo_Rx, '', CON_DEFALT_FONT , [], wColor,0) ;
      WriteWrdsInsert(TabHanyo_Rx, BufWrds, CON_DEFALT_FONT, [], wColor,TabHanyo_Rx.SelStart{Length},0);
    end

改行フラグ？があったら、改行される。とあるようですが、
Bufの中がわからないので改行が実際にあるかどうかがわかりません。。。
どう質問していいのかもわかりませんが、

「ここが原因かも」等ありましたらご教授願います。。。
長文失礼しました。

←解決時は質問者本人がここをチェックしてください。

戻る