TRichEdit中的控制字符串

Question

使用两个按钮向TRichEdit控件添加线条;有没有办法我可以使用第二个按钮继续第一个按钮的行？

我尝试使用＃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;