| Str2SInt Function |
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 |
| S | the String to process |
Category
String/Integer Conversion RoutinesImplementation
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; |
|
|