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

    {*****************************************************************************
     * Function ...... GetPath()
     * Purpose ....... To return the path from a path/mask string
     * Parameters .... Path       String to extract the path from
     * Returns ....... <Path> minus the mask
     * Notes ......... Trailing slash *IS* included if it is there
     *                 (eg, C:\PROGRAM\PASCAL\)
     * Author ........ Martin Richardson
     * Date .......... May 13, 1992
     *****************************************************************************}
    FUNCTION GetPath( Path: DirStr ): DirStr;
    VAR
       dir : DirStr;
       name: NameStr;
       ext : ExtStr;
    BEGIN
         FSPLIT( path, dir, name, ext );
         GetPath := Dir;
    END;

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