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

{*****************************************************************************
 * Function ...... STOI()
 * Purpose ....... To convert a string to an integer
 * Parameters .... cNum       String to convert to integer format
 * Returns ....... cNum as a numeric integer
 * Notes ......... None
 * Author ........ Martin Richardson
 * Date .......... May 13, 1992
 *****************************************************************************}
FUNCTION STOI( cNum: STRING ): LONGINT;
VAR
   c: INTEGER;
   i: LONGINT;
BEGIN
     VAL( cNum, i, c );
     STOI := i;
END;


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