procedure Insert

procedure Insert

Previous pageReturn to chapter overviewNext page

procedure Insert(S: String; var S2: String; pos: Integer);

 

Вставляет строку S в позицию pos строки S2.

 

Пример:

 

var

S : string;

begin

S := 'У попа собака';

Insert('была ', S, 8);

AddToLog(S);

end.