delphi – 有没有更好的方法向TMemo添加几个字符？

发布时间：2020-12-15 09:37:45 所属栏目：大数据来源：网络整理

导读：我正在使用TMemo来保存从串口接收的字符以供查看.他们到达时我正在做： Memo1.Text := Memo1.Text + sReceivedChars; 这工作正常,但我认为这是相当低效的,必须在连接我的几个字符之前获取现有文本然后再写回来.我真的很喜欢’SendChars()’函数或类似的东西.

我正在使用TMemo来保存从串口接收的字符以供查看.他们到达时我正在做：

Memo1.Text := Memo1.Text + sReceivedChars;

这工作正常,但我认为这是相当低效的,必须在连接我的几个字符之前获取现有文本然后再写回来.我真的很喜欢’SendChars()’函数或类似的东西.是否有更好的方法可以在现有文本的末尾添加几个字符？

解决方法

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

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,Integer(@NewText[1]));
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!