AVZ 5. Руководство пользователя
×
Меню
Индекс

16.41.3. procedure Insert

procedure Insert(S: String; var S2: String; pos: Integer);
 
Вставляет строку S в позицию pos строки S2.
 
Пример:
 
var
  S : string;
begin
  S := 'У попа собака';
  Insert('была ', S, 8);
  AddToLog(S);
end.