Inserir texto Memo X Posição Cursor

[bnobre]

Olá a todos,

Tenho um Memo onde o usuário escreve mensagens pré-definidas que irão aparecer como informações de uma NFe.

Clicando com o botão direito no Memo, surgi um PopupMenu onde ele pode escolher várias opções (em anexo). Cada opção vai preenchendo valores como <total_icmstot_vbc>, <total_icmstot_vicms>, etc. Ideia sugerida pelo Régys em http://www.projetoacbr.com.br/forum/topic/27516-informações-complementares-nfe/#comment-179950

O problema é que eu preciso que esse valores sejam inseridos na posição que o cursor estiver no Memo. Eu usei o código em https://forum.imasters.com.br/topic/233345-inserir-texto-no-memo-onde-o-cursor-do-mouse-estiver-posicionado/

var  pos: Shortint;  str, 
code: string;
begin  
  Code:= '<% response.write left("teste",2) %>';  
  pos:= Memo1.SelStart;  
  str:= Copy(Memo1.Lines.Text,1,Pos);  
  str:= str + Code;  
  str:= str + Copy(Memo1.Lines.Text,Pos+1,Length(Memo1.Lines.Text));  
  Memo1.Clear;  
  Memo1.Lines.Add(str);
end;

Ele funciona até uma determinada quantidade de palavras, depois pára de funcionar.

Desde já agradeço a atenção de todos.

 

Editado 7 Maio, 2017 por doidopb

[bnobre]

...

Editado 7 Maio, 2017 por doidopb

[BigWings]

14 horas atrás, doidopb disse:

var pos: Shortint; str,

ShortInt vai só até 127, provavelmente está aqui o seu problema.

 

[bnobre]

Passou despercebido BigWings... Valeu mesmo.