檢查字符串可否轉為數值型
来源:互联网 发布:python d3.js 编辑:程序博客网 时间:2024/05/05 14:29
1.用Delphi函数(建义)
function TryStrToFloat(const S: string; out Value: Extended): Boolean; overload;
function TryStrToFloat(const S: string; out Value: Double): Boolean; overload;
function TryStrToFloat(const S: string; out Value: Single): Boolean; overload;
function TryStrToFloat(const S: string; out Value: Extended; const FormatSettings: TFormatSettings): Boolean; overload;
function TryStrToFloat(const S: string; out Value: Double; const FormatSettings: TFormatSettings): Boolean; overload;
function TryStrToFloat(const S: string; out Value: Single; const FormatSettings: TFormatSettings): Boolean; overload;
2.自己写(不建义)
檢查字符串可否轉為數值型
function IsNumStr(const S: String): Boolean;
var
i, j: Integer;
N, E: Integer;
str1: String;
s1, s2: String;
begin
Result := False;
str1 := Trim(S);
if str1 = '' then
Exit;
Result := True;
j := 0 ;
s1 := '';
s2 := '';
for i := 1 to length(str1) do
begin
if not (str1[i] in ['0'..'9','.','-','+']) then
begin
Result := False; //有非法字符
Break;
end;
if str1[i] = '.' Then
begin
j := j + 1;
if j >= 2 then
begin
Result := False; //多於一個小數點'.'
Break;
end;
end else
begin
if j < 1 then
s1 := s1 + str1[i] //存儲小數點前部份
else
s2 := s2 + str1[i]; //存儲小數點後部份
end;
end;
if Result then
begin
Val(s1, N, E); //參考StrToIntDef函數
if E <> 0 then
Result := False;
end;
if Result And (s2 <> '') then
begin
Val(s2, N, E);
if E <> 0 then
Result := False;
end;
end;
- 檢查字符串可否轉為數值型
- 判断字符串可否通过另一个字符串的循环移位得到 [No. 34]
- VS2008可否配置代码中字符串的编码是ANSI编码不用Unicode编码?
- 字符串查重-玩赖版
- C++ 字符串查重
- 查重字符串
- 字符串查重
- 手工检测可否注入
- RoR可否替代J2EE?
- 可否轻松一役
- 各位朋友可否指点一二?
- JavaScript可否多线程?【转】
- js可否自定义类
- JavaScript可否多线程?
- 可否注册页面
- wujiepei_520霸榜可否?
- JavaScript可否多线程?【转】
- JavaScript可否多线程?
- 后ERP时代的业务数据治理
- 天气预报调用代码大全 js iframe
- Jquery getJSON方法分析
- 二叉树的遍历
- 设计模式——单例模式_Singleton Pattern
- 檢查字符串可否轉為數值型
- Exception in thread "main" java.lang.NoClassDefFoundError错误信息
- ALE/IDOC接口技术详解
- WebService Axis
- ASP.NET页面同时存在自定义控件,母版页,内容页的加载顺序
- google map 自定义地图类型maptype_悄悄俏俏
- Unicode轉字符
- SQLite与AutoCompleteTextView结合使用
- FastDFS的配置、部署与API使用解读(4)FastDFS配置详解之Client配置