AI摘要
本文介绍了Delphi中如何实现IsNumeric函数,用于判断字符串是否为数字。Delphi没有内置IsNumeric函数,因此需要自定义实现。代码中使用Val函数尝试将字符串转换为数字,如果转换成功则返回true,否则返回false。
IsNumeric 判断字符串是否为数字,如果是数字返回true,如果包含有汉字或字符的话返回false. 由于Delphi本身没有IsNumeric这个函数,不像其它语言,这个函数相当于Java的IsNaN函数。
delphi代码
- function IsNumeric(AStr: string): Boolean;
- var
- Value: Double;
- Code: Integer;
- begin
- Val(AStr, Value, Code);
- result := Code = 0;
- end;