delphi - 如何在备忘录中编辑文本？

Question

我想使用过程Delete（Memo.Text，索引，计数）（或类似的Insert）。但我收到消息“常量对象不能作为 var 参数传递”。我知道我可以选择文本并将此过程与Seltext一起使用。但是这种方式有点不舒服。有什么更容易的吗？

score 5 · Accepted Answer

Text是属性而不是变量。并且Delete需要一个变量。所以你需要使用一个临时变量。例如

var
  str: string;
.... 
str := Memo1.Text;
Delete(str, index, count);
Memo1.Text := str;

score 3 · Accepted Answer

您正在尝试调用System.Delete()，它将对变量的引用string作为输入。但TMemo.Text它是一个属性（使用 getter 方法），它不是一个变量。这就是为什么您收到“不能作为 var 参数传递”错误的原因。

您可以使用临时变量，例如：

var 
  s: string;

s := Memo.Text;
Delete(s, index, count);
Memo.Text := s;

但这通常是非常低效的，因为它必须在内存中制作备忘录当前内容的完整副本，然后对其进行修改/重新分配，然后将其重新分配回备忘录，完全擦除当前内容并解析新内容。对于小的更改，这是很多工作。

一个更快更有效的选择是使用备忘录的SelStart/SelLength和SelText属性，例如：

Memo.SelStart := index;
Memo.SelLength := count;
Memo.SelText := '';

您可以在插入新文本时执行相同的操作，只需设置SelLength为 0，例如：

Memo.SelStart := index;
Memo.SelLength := 0;
Memo.SelText := 'text to insert';

使用这些属性可能“不舒服”，但从内存和性能的角度来看，它确实是一个不错的选择。在内部，他们只是将 Win32EM_(GET|SET|REPLACE)SEL消息直接发送到备忘录的窗口，让操作系统处理实际的文本管理。

如果您真的想要最有效的方法，请直接使用 Win32 消息，例如：

//delete
Memo.Perform(EM_SETSEL, index, index+count);
Memo.Perform(EM_REPLACESEL, 0, LPARAM(PChar('')));

//insert
Memo.Perform(EM_SETSEL, index, index);
Memo.Perform(EM_REPLACESEL, 0, LPARAM(PChar('text to insert')));

2 回答 2