delphi - TRichEdit の制御文字列

Question

TRichEdit2 つのボタンを使用してコントロールに行を追加します。2 番目のボタンを使用して最初のボタンの行を継続する方法はありますか?

#8 の制御文字列シーケンスを使用してバックスペースを試みましたが、うまくいきません。他に何ができますか？

Answer 1

私があなたの質問を正しく理解していれば、文字列の後半を既に追加した前半に連結 (追加) するだけで、そうすることができます。

procedure TForm1.Button1Click(Sender: TObject);
begin
  RichEdit1.Lines.Add('This is the first half');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  LastLine: Integer;
begin
  LastLine := RichEdit1.Lines.Count - 1;
  // Make sure we've added some text before
  if LastLine <> -1 then
    RichEdit1.Lines[LastLine] := RichEdit1.Lines[LastLine] + 
        ', and here is the second half.';
end;