delphi - 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;