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

Question

对于Lazarus版本的SynEdit，有一个SynEdit.InsertTextAtCaret（'Text'）程序。如何在删除支持的Delphi版本的SynEdit插入插入文本？

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');