Процедура Delete – удаляет из заданной строки подстроку с определенной программистом позиции и определенное количество символов. Процедура Delete входит в состав библиотеки System и имеет три входных параметра — текстовую строку, в которой будет произведено удаление части текста, стартовая позиция и кол-во символов для удаления.
Синтаксис процедуры:
Delete(var S: string; Index, Count:Integer);
где:
S – строка в которой удаляем символы;
Index – номер символа в строке с которого начнется удаление.
Count – задает количество удаляемых символов строки.
Пример. Удалим из строки «Эта_веселая_жизнь!» 4 символа с позиции 1.
Смотрим пример:
procedure TForm1.Button1Click(Sender: TObject);
var sMsg:string;
begin
sMsg:=‘Эта_веселая_жизнь!’;
delete(sMsg,1,4);
ShowMessage(sMsg);
end;
Результат: «веселая_жизнь!»
Примечание: Обратите внимание что удаление происходит в той строке которая задается как параметр. Будьте внимательны, если в дальнейшем потребуется использовать эту переменную с первоначальным ее содержимым.