 |
如果判断字符串中是否有数字，可以这样：
function HasNum(s:string):bool;
var i:integer;
begin
for i := 1 To Length(s) do
if (s[i] >= '0') or (s[i] <= '9') then
begin
HasNum := True;
Exit;
end;
HasNum := FALSE;
end;
如果判断开头是否为数字，可以这样：
function IsStartNum(str:string):boolean;
begin
result := leftStr(str, 1) in ['0'..'9'];
end;
 rongdzh的意见：
请问在Delphi５中没有LeftStr此函数，怎么办？
答：可以使用Copy函数。改为：
function IsStartNum(str:string):boolean;
begin
result := Copy(str, 1, 1) in ['0'..'9'];
end;
此问题由李海、chengTe回答。
附加关键字：编程, 源程序, programming, source code, Delphi, VCL, Borland, 其他方面, 。
|
如何判断字符串中是否有数字
