請問各位 若是在一段文字中第二個位置，到第五個位置 insert文字，有指令可以下嗎?(不是insert指令) ex : 原本的文字apple 2~5 insert abc 變成 aabc pple

delphi 有 insert 的procedure為什麼不用

procedure TForm1.Button1Click(Sender: TObject);
  var
    s:string;
begin       s := 'apple';
   insert('abc ',s,2);
   ShowMessage(s); // ---> 'aabc pple'
end;    end.

回首來時路 也無風雨也無晴~~@.@

------
天行健
君子當自強不息~~@.@

引言: 請問各位 若是在一段文字中第二個位置，到第五個位置 insert文字，有指令可以下嗎?(不是insert指令) ex : 原本的文字apple 2~5 insert abc 變成 aabc pple

 function myfunc(str:string;substr:string):string;
 var s1,s2:string;
 begin
     
     s1:=copy(str,1,1);
     s2:=copy(str,2,length(str)-1);
     
     result:=s1+substr+s2; 
 end;    

Fear is the path to the dark side. Fear leads to anger.Anger leads to hate.Hate leads to suffering....

Insert 程序格式： procedure Insert ( const InsertStr : string; var TargetStr : string; Position : Integer ) ; 範例： var Target : string; begin Target := 'apple'; Insert('abc', Target, 2); ShowMessage('Target : ' Target); end; 執行結果： Target : aabcpple 發表是最好的記憶!