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

名前

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

本文 ちなみにさんレス感謝します。 WriteWrdsのソースでBegin以下、使われている部分を添付します。 try With TgtRE do begin n := SelStart; Lines.Add(TgtWrds); SS :=RightStr(TgtRE.Text,5); if SS = 'file:' then Lines.Add(''); x := SelStart; SelStart := n; SelLength := x - n;//1; SelAttributes.Size := Fsize; SelAttributes.Style := FStyle; SelAttributes.Color := FColor; 上から５行目の中を見ると 「'29日(金) 粥 肉'#$D#DA」 となっていたりするので#$D#DAの部分が改行にあたるんですかね。。。 で、問題が発生している30日〜31日を追いかけてみたのですが、 どうやら、WriteWrdsの命令が飛ばされているようです。 デバッグで両方を止めたのですが、31日の時だけWriteWrdsを通りません。 以上が現在わかっている範囲です； DelphiってVBと似ていて、ＶＢ開発者（私）としてはとっつき易いですが、 中身は難しいですね。。。オブジェクト指向が強いからでしょうか；