1樓：
低效率，需檢索字串10次。
2樓：匿名使用者
vars: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.
delphi 判斷字串是否為數字
3樓：
trystrtoint(str);
b:=true;
except
b:=false;
end;
如果b=true就代表是，strtoint 是個會異常返回的函式，如果是異常退出就代表是。。。。
delphi怎樣 檢查一個字串必須是否是數字和字母的組合！謝謝！
4樓：哀醬
function ifhasnumandstr(str:string):boolean;
begin
result:=false;
for i:=0 to 9 do
begin
if pos(inttostr(i),str)<0 then break;
for j:=65 to 91 do
if pos(chr(j),uppercase(str))>0 then
begin
result:=true;
break;
end;
end;
end;
5樓：匿名使用者
檢視每個字元的ascii碼是不是數字或字母
6樓：己聞楣
function ispurenumberoralpha( s : string ) : boolean;
vari : integer;
begin
result := false;
for i := 1 to length( s ) docase s[i] of
'0'..'9', 'a'..'z', 'a'..'z':
begin
end;
else
exit;
end;
result := true;
end;
js怎樣判斷字串中是否有數字和字母？
delphi 檢查字元是否是數字和字母的組合
7樓：匿名使用者
給你個例子:procedure tform1.button1click(sender: tobject);
varstr : string;
begin
str := edit1.text;
trystrtoint(str);
showmessage('由數字組成！');
except
if str=uppercase(str) thenshowmessage('由大寫字母組成！')else
if str=lowercase(str) thenshowmessage('由小寫字母組成！')else
showmessage('由數字和字母混合組成')end;
end;
8樓：匿名使用者
***********************檢測函式：function mycheck(str:string):integer;
vari: integer;
zm,sz: integer;
begin
result := 0;
zm := 0;
sz := 0;
for i:=1 to length(str) do
begin
if (str[i] in ['a'..'z','a'..'z']) then
zm := 1;
if (str[i] in ['0'..'9']) then
sz := 1;
end;
if zm = 0 then
result := 1;
if sz = 0 then
result := 2;
if (zm=1) and (sz=1) then
result := 3;
end;***************************呼叫舉例：
procedure tform1.button1click(sender: tobject);
varval:integer;
begin
val := mycheck(trim(edit1.text ));
if val = 0 then
showmessage('執行發生錯誤');
if val = 1 then
showmessage('無字母');
if val = 2 then
showmessage('無數字');
if val = 3 then
showmessage('同時包含有字母和數字');
end;************************
9樓：匿名使用者
function isright(s:string):boolean;var i:integer;
begin result:=true; for i:=1 to length(s) do begin if not (s[i] in ['a'..
'z','a'..'z','0'..'9']) then begin result:
=false; break; end; end;end;
delphi 判斷字串是否含有數字
10樓：兄弟連教育北京總校
有兩種方法：
1、在edit1的onkeypress事件中輸入如下**
delphi如何判斷一個字串是否是由數字和逗號組成
11樓：匿名使用者
procedure tform1.button1click(sender: tobject);
varsl1:tstringlist;
i,j:integer;
str,str_temp:string;
sf_:boolean;//是否由數字跟逗號組成begin
sl1:=tstringlist.create;
sf_:=false;
for i:=0 to 9 do
begin
sl1.add(inttostr(i));
end;
sl1.add(',');
str:=edit1.text;
for i:=1 to length(str) dobegin
str_temp:=copy(str,i,1);
for j:=0 to sl1.count-1 dobegin
if sl1.strings[j]=str_temp thenbegin
sf_:=true;
break;
endelse sf_:=false;
end;
end;
sl1.free;
if sf_=false then
showmessage('該字串不由數字跟逗號組成');
end;
delphi 判斷是否有字串
12樓：匿名使用者
有兩種方法：
1、在edit1的onkeypress事件中輸入如下**
如何判斷字串是否相等,判斷字串是否有值，判斷多個字串是否相等
string str1 abc string str2 bcd if str1.equals str2 用的是專equals 方法屬 先要包含string.h 標頭檔案，再用以下 比較str1與str2二個字串是否相等 if strcmp str1,str2 0 在pl sql怎麼判斷兩個字串是否相...
js中如何判斷字串中是否包含指定字串
正則bai 匹配 du var str this is my test var test new regexp test g 建立正 zhi則dao表達版式對權 象var result s.match test alert result js判斷字串變數是否含有某個字串的方法 方法一 var str...
js中怎麼判斷字串是否在另字串中
js中判斷一個字抄符串包含另外 襲一個字串的方式比較多，比如indexof 方法，注意o是大寫。var test this is a test if test.indexof test 1 es6又提供了三種新方法 1 includes 返回布林值，表示是否找到了引數字串。2 startswith ...