[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] Reference for unit 'System' (#rtl)

Insert

Insert one string in another.

Declaration

Source position: systemh.inc line 1083

procedure Insert(

  const source: shortstring;

  var s: shortstring;

  index: SizeInt

);

procedure Insert(

  source: Char;

  var s: shortstring;

  index: SizeInt

);

procedure Insert(

  const Source: RawByteString;

  var S: RawByteString;

  Index: SizeInt

);

procedure Insert(

  const Source: UnicodeString;

  var S: UnicodeString;

  Index: SizeInt

);

procedure Insert(

  const Source: WideString;

  var S: WideString;

  Index: SizeInt

);

Description

Insert inserts string Source in string S, at position Index, shifting all characters after Index to the right. The resulting string is truncated at 255 characters, if needed. (i.e. for shortstrings)

Errors

None.

See also

Delete

  

Delete part of a string.

Copy

  

Copy part of a string.

Pos

  

Search for substring in a string.

Example

Program Example33;

{ Program to demonstrate the Insert function. }

Var S : String;

begin
  S:='Free Pascal is difficult to use !';
  Insert ('NOT ',S,pos('difficult',S));
  writeln (s);
end.

Documentation generated on: Sep 28 2017