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

    {
      *****************************************************************
      *                         Basic Strings                         *
      *                               by                              *
      *                         Todd A. Jacobs                        *
      *                                                               *
      * Duplicates the Basic string functions Left$, Right$, and Mid$ *
      *****************************************************************

      A very simple unit to assist in parsing strings using familiar
      Basic commands.  StrName is self-explanatory.  NumChars is the
      length of the string to be returned, and StartPos is the index to
      start at for the Mid$ (aka MidStr) function.

      Released into the public domain, I hope someone will: a) find it
      useful, and b) add support for comma-delimited and space-delimited
      input (a la Basic).

      Comments may be directed to 1:109/182 or tjacobs@epub.com.
      Flames may be directed to the NUL device.  :)
    }

    Unit BasicStr;

    Interface

    Function MidStr  ( StrName: String; StartPos, NumChars : Integer) : String;
    Function LeftStr ( StrName: String; NumChars : Integer) : String;
    Function RightStr( StrName: String; NumChars : Integer) : String;

    Implementation

    Function MidStr;
    Begin
      MidStr := Copy ( StrName, StartPos, NumChars);
    End; {Mid$}

    Function LeftStr;
    Begin
      LeftStr := Copy ( StrName, 1, NumChars);
    End; {Left$}

    Function RightStr;
    Begin
      RightStr := Copy ( StrName, ( Length(StrName) - (NumChars - 1)), NumChars);
    End; {Right$}

    End. {Unit}

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