[Back to STRINGS SWAG index] [Back to Main SWAG index] [Original]

    {*****************************************************************************
     * Function ...... InStr()
     * Purpose ....... To locate a substring in a string starting at a given
     *                 position.
     * Parameters .... n        Position in the string to start searching
     *                 sub      Substring to search for
     *                 s        String to search in
     * Returns ....... Numeric position of <sub> in string <s> after position <n>
     * Notes ......... Uses function Right
     * Author ........ Martin Richardson
     * Date .......... October 2, 1992
     *****************************************************************************}
    FUNCTION InStr( n: BYTE; sub: STRING; s: STRING ): BYTE;
    BEGIN
         InStr := POS( sub, Right( s, LENGTH(s)-n+1 ) ) + n - 1;
    END;

[Back to STRINGS SWAG index] [Back to Main SWAG index] [Original]