[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.

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.

Delete		Delete part of a string.
Copy		Copy part of a string.
Pos		Search for substring in a string.

Insert

Declaration

Description

Errors

See also

Example