procedure Delete

procedure Delete

Previous pageReturn to chapter overviewNext page

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

 

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

 

var

S : string;

begin

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

Delete(S, 12, 10);

AddToLog(S);

end.