Question

delphi判断字符串是否有数字

Answer 1

引用gcbjoy的回答：
var s:string; k:char; find:boolean;begin s:='hkjhjh0iuuyyioh'; find:=false; for k:='0' to '9' do if pos(k,s)>0 then find:=true; if find then writeln('include digit') else writeln('no');end.

低效率，需检索字符串10次。

Answer 2

var
	s:string;
	k:char;
	find:boolean;
begin
	s:='hkjhjh0iuuyyioh';
	find:=false;
	for k:='0' to '9' do if pos(k,s)>0 then find:=true;
	if find then writeln('include digit') else writeln('no');
end.