Insert

> [HTML Version](insert.html)

**Синтаксис**

````
procedure Insert(AInsertStr: string; var ATargetStr: string; Index: Integer);

````
**Описание**

Вставляет строку AInsertStr в строку ATargetStr в позицию Index.

**Пример кода**

````
var  
  Source: string;  
begin  
  Source := '12345678';  
  Insert('-+-', Source, 3); // Source = 12-+-345678  
end.
````