最後だけ改行されない (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;

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

戻る