有没有更好的方法向 TMemo 添加一些字符？

Question

我正在使用 TMemo 保存从串行端口接收到的字符以供查看。当他们到达时，我正在做：

Memo1.Text := Memo1.Text + sReceivedChars;

这工作正常，但我认为它效率相当低，必须在连接我的几个字符然后将其写回之前获取现有文本。我真的很想要一个“SendChars()”函数或类似的函数。有没有更好的方法来简单地在现有文本的末尾添加一些字符？

Answer 1

我不知道你是否认为值得，但你可以这样做：

procedure TForm1.Button1Click(Sender: TObject);
var
  index: Integer;
  NewText: string;
begin
  NewText := 'Append This';
  index := GetWindowTextLength (Memo1.Handle);
  SendMessage(Memo1.Handle, EM_SETSEL, index, index);
  SendMessage (Memo1.Handle, EM_REPLACESEL, 0, Integer(@NewText[1]));
end;

Answer 2

如果您的文本位于多行中（TStrings 集合的字符串，它是 TMemo 的 Lines 属性的实际类型），那么您可以执行以下操作：

Memo1.Lines[Memo1.Lines.Count - 1] := Memo1.Lines[Memo1.Lines.Count - 1] + sReceivedChars;

因此，您将一些字符添加到备忘录的最后一行（字符串集合中的最后一个字符串），而不将整个文本放入单个字符串中。