Функция Delete ( var S: string;
Index, Count: Integer );
Модуль: System
Описание
Процедура удаляет подстроку, содержащую Count символов из строки S. Подстрока начинается в S[Index].
Параметр Index определяет индекс первого символа удаляемой подстроки. Первый символ в строке имеет индекс 1. Если значение Count превышает количество символов, которое может быть удалено, то процедура удаляет все символы, начиная с S[Index], до конца строки.
Пример var
S: string; begin
S:= 'Казнить, нельзя, помиловать!';
Delete(S, 8, 1); // S := 'Казнить нельзя, помиловать!'
MessageDlg(S, mtWarning, [mbOK],0); end;