function IsInteger(S: String): Boolean; begin try Result := True; StrToInt(S); except on E: EConvertError do Result := False; end; end; function IsFloat(S: String): Boolean; begin try Result := True; StrToFloat(S); except on E: EConvertError do Result := False; end; end;
You need to create an account or log in to post comments to this site.