Str2SInt Function
Converts a string into a ShortInt.

Unit
QESBPCSConvert

Declaration
Function Str2SInt(const S: string): ShortInt;

Description
Removes Thousand Separators if they are present as well as any leading or trailing white spaces (ie <= #32). If Number is Valid but out of Range then High (ShortInt) will be returned for a greater value and Low (ShortInt) for a lesser value. Non-numeric will return 0.

Parameters
the String to process

Category
String/Integer Conversion Routines

Implementation

function Str2SInt (const S: string): ShortInt;
var
     S2: string;
     L: Int64;
     Error: Integer;
begin
     S2 := StripThousandSeparators (Trim (S)); // Remove Thousands Separators, if any
     try
          Val (S2, L, Error);
          if Error <> 0 then
               Result := 0 // Return 0 for non-numeric
          else if L > High (ShortInt) then // Check with in boundaries
               Result := High (ShortInt)
          else if L < Low (ShortInt) then
               Result := Low (ShortInt)
          else
               Result := L; // Return Value
     except
          Result := 0; // Return 0 for non-numeric
     end;
End;


HTML generated by Time2HELP
http://www.time2help.com