1樓：迷途老羊
function isencase(vaule:string):boolean; //判斷vaule 是不是字母
vari:integer;
begin
result:=true; //設定返回值為 是vaule:=trim(vaule); //去空格for i:=1 to length(vaule) do //準備迴圈
begin
if (not vaule[i] in ['a'..'z']) or(not vaule[i] in ['a'..'z']) then //如果vaule的第i個字不是a-z或者a-z中的任一個
begin
result:=false; //返回值 不是exit; //退出函式
end;
end;
end;
2樓：匿名使用者
for i:=1 to length(str)begin
if not (((ord(str[i])>=67) and (ord(str[i])<=90)) or
((ord(str[i])>=97) and (ord(str[i])<=122))) then
begin result:=false;
break ;
endend;
delphi 如何判斷一個字串是否包含漢字?
3樓：tr硪奈づ錢
//字串是否包含漢字，是返回真，否則返回假
function tform1.ifincludehz(strtxt:string):boolean;
var i:integer;
begin
//先判斷要擷取的字串最後一個位元組的型別
//如果為漢字的第一個位元組則減(加)一位
result:=false;
for i:=0 to length(strtxt) do
begin
if bytetype(strtxt,i) = mbleadbyte then
begin
result:=true;
break;
end;
end;
end;
//判斷字元是否是漢字
//如果是漢字那麼，返回 true，如果不是漢字，那麼返回 false
function i**bcschar(const ch: char): boolean;
begin
result := (bytetype(ch, 1) <> mbsinglebyte);
end;
我覺得最好還是在輸入之前判斷好一點
如何判斷一個字串為空
4樓：瑛夫科技
字串為空只有一種肯可能:str==null,此時string 沒有分配記憶體,所以為空.
delphi如何判斷一個字串是否包含另一個字串
5樓：
if pos('另一個字串', '一個字條串') > 0 then
begin
包含end;
delphi 如何判斷一段字串是否有規定的字元
6樓：匿名使用者
設你的字串在edit1.text中。判斷語句如下：
if (pos('中國',edit1.text)>0) or (pos('愛國內',edit1.text)>0) then
showmessage('文字裡有這個容詞語！');
7樓：
if pos('中國','我是中國人，何必學外文，考試打0分，代表我的愛國心！')>0 then
showmessage('');
JS判斷字串變數是否含有某個字串的實現方法
方法一 var str abc if str.indexof bc 1 方法二var str abc if str.search bc 1 方法三var str abc var reg new regexp bc.if reg.test str 方法四var str abc var reg new ...
js中如何判斷字串在另字串的多少位
js中如何判斷一個字串在另一個字串的位置，可以直接呼叫indexof方法即可，專如果不存在則會屬返回 1。例如 var a1 abcdefg var a2 ef alert 字串a1 a1 alert 字串a2 a2 alert 字串a2在字串a1的位置 a1.indexof a2 js 是支援很多...
求助，如何判斷string型別的字串
11111111111111111111111111111 c string類如何判斷字串為空 string類是c stl類之一，有很豐富的介面。string類為空，實際也就是元素為0個。可以按照如下方式判斷 1 string類有自己的成員函式empty,可以用來判斷是否為空。string s if...