Друзья
Друзья


Delete(S, Index, Count) - Удаляет из строки S подстроку длинной Count начиная с позиции Index.
Объявление:
Procedure Delete(Var S:String; Index:Integer; Count:Integer);
Режим:
Windows, Real, Protected
Замечания:

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

print
?01 Uses Crt;
02
03 Var S: String;
04
05 Begin
06 S:='Unix & Windows forever!';
07 Delete(S, 6, 10);
08 WriteLn(S); {'Unix forever!'}
09 ReadLn
10 End.