Удалить подстроку из строки.
procedure Delete(var sSt: string; iFrom, iCount: integer);
Параметр |
Тип |
Значение |
---|---|---|
sSt |
string |
оригинальная строка; |
iFrom |
integer |
индекс, начиная с которого нужно удалить текст, должен быть >0; |
iCount |
integer |
сколько символов, начиная с указанной позиции, нужно удалить. |
Строка, переданная в качестве параметра, будет "усечена" согласно условию.
const
sOriginal = 'Forever trusting who we are and nothing else matters';
var
s: string;
x: integer;
begin
mLogScript('Original string: "' + sOriginal + '"', '');
s := sOriginal;
x := pos('nothing else matters', s);
if x > 0 then delete(s, 1, x - 1);
mLogScript('Modified string: "' + s + '"', '');
end.
[14:41:39] (Log "Delete"): Original string: "Forever trusting who we are and nothing else matters"
[14:41:39] (Log "Delete"): Modified string: "nothing else matters"