procedure Delete

Наверх  Предыдущая  Последующая |

procedure Delete(var s: String; from, count: Integer);

 

Удаляет из строки S несколько символов начиная с позиции from, количество удаляемых символов задается параметром count.

 

var

S : string;

begin

S := 'У попа была кошка или собака';

Delete(S, 12, 10);

AddToLog(S);

end.