Вставить подстроку в строку на указанную позицию.

 

Синтаксис

procedure Insert(var sOriginal: string; sWhatInsert: string; iFrom: integer);

 

Параметры и возвращаемые значения

Параметр

Тип

Значение

sOriginal

string

оригинальная строка;

sWhatInsert

string

подстрока, которая вставляется в оригинальную строку;

iFrom

integer

позиция, в которую следует вставить подстроку, должна быть >0.

 

Результат функции

Изменённая строка, переданная в первом параметре.

 

Пример

const
  sInsertWhat = 'I want it all,';
  sInsertTo   = 'and I want it now.';
var
  s: string;
  i: integer;
begin
  s := sInsertTo;
  mLogScript('Original string: "' + s + '"', '');
  
    for i := 1 to 3 do
      insert(sInsertWhat + ' ', s, 1);
    
  mLogScript('Result string: "' + s + '"', '');
end.

Результат работы скрипта

[14:55:00] (Log "Insert"): Original string: "and I want it now."

[14:55:00] (Log "Insert"): Result string: "I want it all, I want it all, I want it all, and I want it now."
 

Ещё посмотреть

mLogScript