To: weizi2000(秋风啊) 谢谢,可我还不太懂具体用法在那儿能找到isnumerice函数的详细说明啊? 或者谁能说说语法规则,谢了~
判断是否为数值: function IsNumeric(AChar: char): Boolean; begin // Do not use IsCharAlpha or IsCharAlphaNumeric - they are Win32 routines Result := AChar in ['0'..'9']; {Do not Localize} end;
function IsNumeric(const AString: string): Boolean; var LCode: Integer; LVoid: Integer; begin Val(AString, LVoid, LCode); Result := LCode = 0; end;
谢谢,可我还不太懂具体用法在那儿能找到isnumerice函数的详细说明啊?
或者谁能说说语法规则,谢了~
function IsNumeric(AChar: char): Boolean;
begin
// Do not use IsCharAlpha or IsCharAlphaNumeric - they are Win32 routines
Result := AChar in ['0'..'9']; {Do not Localize}
end;
var
LCode: Integer;
LVoid: Integer;
begin
Val(AString, LVoid, LCode);
Result := LCode = 0;
end;
isnumerice函数
是系统函数吗,可以直接有吗?