Процедура Delete

Удаляет из строки S подстроку длинной Count начиная с позиции Index.

Объявление:

Procedure Delete(Var S : String; Index : Integer; Count : Integer);

Режим:

Windows,  Protected,  Real

Замечание:

Параметр S - переменная со строковым типом. Index и Count - целочисленные выражения. Если значение Index больше, чем длина S, то никакие символы не удаляются. Если Count определяет большее количество символов, чем остается в строке с позиции Index до конца строки, то удаляется остаток строки.

Пример:

Uses Crt;

Var S: String;

Begin
	S:='Unix & Windows forever!';
	Delete(S, 6, 10);
	WriteLn(S); {'Unix forever!'}
	ReadLn
End.