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

名前

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

本文 ママんさんレスありがとうございます。 教えていただいた内容をendの後に入れましたが特に変化ありませんでした； 抜き出した一部なのでわかりにくいかもしれません。。。 このループを全て抜いてみました。 引き続き調査していきます。 何かわかるようでしたらご教授願いますm(_ _)m 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 else begin try if BufWrds <>'' then begin //画像の前のスペース i:=StrToInt(BufWrds); BufWrds:=''; for j:=1 to i do BufWrds:=BufWrds+' '; end; except HCMessageDlg('',mtError,[mbOk],0,Self.Left); end; WriteWrdsInsert(TabHanyo_Rx, BufWrds, CON_DEFALT_FONT, [], clBlack,TabHanyo_Rx.SelStart,0); //GetRxImage(wRx, CDataSet.FieldByName('画像').AsString); BM := TBitmap.Create(); //Bmpイメージ用領域確保 try BM.Assign(CDataSet.FieldByName('画像')); Clipboard.Assign(BM); //最後にカーソルを合わせる TabHanyo_Rx.SelStart := Length(TabHanyo_Rx.Lines.text); Sleep(500); //Size変更不可 TabHanyo_Rx.InsertNonResizableBitmap; WriteWrds(TabHanyo_Rx, '', CON_DEFALT_FONT, [], clBlack,0); finally BM.Free; //領域破棄 end; end; CDataSet.Next ; end; TabHanyo_Rx.Lines.EndUpdate;