如何在SynEdit中插入插入符号位置的文本

Question

对于拉撒路版本的SynEdit，有一个过程SynEdit.InsertTextAtCaret('Text')。如何在带有撤销支持的SynEdit的Delphi版本中插入文本？

Answer 1

是有程序的

TCustomSynEdit.procedure InsertBlock(const BB, BE: TBufferCoord; ChangeStr: PWideChar; AddToUndoList: Boolean);

它插入ChangeStr将文本从BB更改为BE位置。你可以将BB和BE设置为当前的插入符号坐标，这样就可以得到你想要的了

例如

SynEdit1.InsertBlock(SynEdit1.CaretXY, SynEdit1.CaretXY, 'test', true);

Answer 2

您可以使用以下代码：

SynEdit1.InsertTextAtCaret('text');