16.43.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.
16.43.3. procedure Insertprocedure Insert(S: String; var S2: String; pos: Integer);
Вставляет строку S в позицию pos строки S2.
Пример:
var
S : string;
begin
S := 'У попа собака';
Insert('была ', S, 8);
AddToLog(S);
end.
|