Удалить подстроку из строки.

 

Синтаксис

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"
 

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

mLogScript

Pos