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

# Pos

Search for substring in a string.

## Declaration

Source position: systemh.inc line 1166

`function Pos(`
`const substr: shortstring;`
`const s: shortstring;`
`Offset: SizeInt = 1`
`):SizeInt; function Pos(`
`C: Char;`
`const s: shortstring;`
`Offset: SizeInt = 1`
`):SizeInt; function Pos(`
`const Substr: ShortString;`
`const Source: RawByteString;`
`Offset: SizeInt = 1`
`):SizeInt; function Pos(`
`const substr: shortstring;`
`c: Char;`
`Offset: SizeInt = 1`
`):SizeInt; function Pos(`
`const Substr: RawByteString;`
`const Source: RawByteString;`
`Offset: SizeInt = 1`
`):SizeInt; function Pos(`
`c: AnsiChar;`
`const s: RawByteString;`
`Offset: SizeInt = 1`
`):SizeInt; function Pos(`
`const Substr: UnicodeString;`
`const Source: UnicodeString;`
`Offset: SizeInt = 1`
`):SizeInt; function Pos(`
`c: Char;`
`const s: UnicodeString;`
`Offset: SizeInt = 1`
`):SizeInt; function Pos(`
`c: UnicodeChar;`
`const s: UnicodeString;`
`Offset: SizeInt = 1`
`):SizeInt; function Pos(`
`const c: RawByteString;`
`const s: UnicodeString;`
`Offset: SizeInt = 1`
`):SizeInt; function Pos(`
`const c: UnicodeString;`
`const s: RawByteString;`
`Offset: SizeInt = 1`
`):SizeInt; function Pos(`
`const c: ShortString;`
`const s: UnicodeString;`
`Offset: SizeInt = 1`
`):SizeInt; function Pos(`
`const Substr: WideString;`
`const Source: WideString;`
`Offset: SizeInt = 1`
`):SizeInt; function Pos(`
`c: Char;`
`const s: WideString;`
`Offset: SizeInt = 1`
`):SizeInt; function Pos(`
`c: WideChar;`
`const s: WideString;`
`Offset: SizeInt = 1`
`):SizeInt; function Pos(`
`c: WideChar;`
`const s: RawByteString;`
`Offset: SizeInt = 1`
`):SizeInt; function Pos(`
`const c: RawByteString;`
`const s: WideString;`
`Offset: SizeInt = 1`
`):SizeInt; function Pos(`
`const c: WideString;`
`const s: RawByteString;`
`Offset: SizeInt = 1`
`):SizeInt; function Pos(`
`const c: ShortString;`
`const s: WideString;`
`Offset: SizeInt = 1`
`):SizeInt; function Pos(`
`c: Char;`
`const v: Variant`
`):SizeInt; function Pos(`
`s: ShortString;`
`const v: Variant`
`):SizeInt; function Pos(`
`const a: AnsiString;`
`const v: Variant`
`):SizeInt; function Pos(`
`const w: WideString;`
`const v: Variant`
`):SizeInt; function Pos(`
`const w: UnicodeString;`
`const v: Variant`
`):SizeInt; function Pos(`
`const v: Variant;`
`const c: Char`
`):SizeInt; function Pos(`
`const v: Variant;`
`const s: ShortString`
`):SizeInt; function Pos(`
`const v: Variant;`
`const a: AnsiString`
`):SizeInt; function Pos(`
`const v: Variant;`
`const w: WideString`
`):SizeInt; function Pos(`
`const v: Variant;`
`const w: UnicodeString`
`):SizeInt; function Pos(`
`const v1: Variant;`
`const v2: Variant`
`):SizeInt;`

## Description

Pos returns the index of Substr in S, if S contains Substr. In case Substr isn't found, 0 is returned. The search is case-sensitive.

## Errors

None

## See also

Length |  | Returns length of a string or array.
Copy |  | Copy part of a string.
Delete |  | Delete elements (characters) from a string or dynamic array.
Insert |  | Insert one string or dynamic array in another.

## Example

    Program Example48;

    { Program to demonstrate the Pos function. }

    Var
      S : String;

    begin
      S:='The first space in this sentence is at position : ';
      Writeln (S,pos(' ',S));
      S:='The last letter of the alphabet doesn''t appear in this sentence ';
      If (Pos ('Z',S)=0) and (Pos('z',S)=0) then
        Writeln (S);
    end.