删除文档

Question

如何将MEMO中某个范围内的内容删除.例如:
...................
......ABC.....123....
...................
将ABC和123间的内容删除,如何实现?

Answer 1

Memo1.SetFocus;
      Memo1.SelStart := 2;
      Memo1.SelLength := 2;
      memo1.ClearSelection;

Answer 2

找到ABC后的位置，赋给 Memo1.SelStart , 找到123　前面的位置　赋给 Memo1.SelLength,
再调用  memo1.ClearSelection 就行了。

Answer 3

Memo1.SelStart := pos('ABC', memo1.Text)-1;
  Memo1.SelLength := pos('123', memo1.Text) + 2;
  memo1.ClearSelection;