Str2SmallInt Function |
Unit
QESBPCSConvert
Declaration
Function Str2SmallInt(const S: string): SmallInt;
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 (SmallInt) will be returned for a greater value and Low (SmallInt) for a lesser value. Non-numeric will return 0.
Parameters |
S | the String to process |
Category
String/Integer Conversion RoutinesImplementation
function Str2SmallInt (const S: string): SmallInt; 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 (SmallInt) then // Check with in boundaries Result := High (SmallInt) else if L < Low (SmallInt) then Result := Low (SmallInt) else Result := L; // Return Value except Result := 0; // Return 0 for non-numeric end; End; |
|