Вставить подстроку в строку на указанную позицию.
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."