Процедура Insert в Delphi вставляет строку в другую строку.
System unit
procedure Insert (const InsertStr : string; var TargetStr : string; Position : Integer);
Процедура Insert вставляет одну строку (InsertStr) в другую строку (TargetStr) в заданной позиции (Position).
Символы строки TargetStr, начиная с символа указанного в Position, смещаются вправо.
Теперь длина TargetStr является суммой длины этих двух строк. Для вставки в начало строки TargetStr установите значение Position в 1 или меньше.
Чтобы добавить в конец строки TargetStr, задайте значению Position номер последнего символа TargetStr.
Примечание.
Первый символ строки имеет индекс 1.
Массивы начинаются с 0 индекса.
Процедура Insert: Вставка в середину строки
var
Target : string;
begin
Target := '12345678';
Insert('-+-', Target, 3);
ShowMessage('Target : '+Target);
end;Результат
Target : 12-+-345678
Похожие функции, процедуры и команды
AnsiReplaceStr — заменяет часть одной строки другой.
Concat — соединяет несколько строк в одну.
Copy — создает копию части строки или части массива.
Delete — удаляет часть символов из строки.
Move — копирует байты данных из источника в место назначения.
StringOfChar — создает строку из одного символа, повторенного много раз.
StringReplace — заменяет одну или несколько подстрок, найденных в заданной строке.
StuffString — заменяет часть одной строки на другую.
WrapText — добавьте перенос строки в строку, чтобы имитировать перенос слов.
Угостить автора чашечкой кофе