delphi判斷是否有字串,delphi判斷字串是否含有數字

2021-03-04 05:10:59 字數 1349 閱讀 9168

1樓:匿名使用者

有兩種方法:

1、在edit1的onkeypress事件中輸入如下**

delphi 判斷字串是否含有數字

2樓:兄弟連教育北京總校

有兩種方法:

1、在edit1的onkeypress事件中輸入如下**

delphi如何判斷一個字串是否包含另一個字串

3樓:

if pos('另一個字串', '一個字條串') > 0 then

begin

包含end;

delphi 如何判斷一段字串是否有規定的字元

4樓:匿名使用者

設你的字串在edit1.text中。判斷語句如下:

if (pos('中國',edit1.text)>0) or (pos('愛國內',edit1.text)>0) then

showmessage('文字裡有這個容詞語!');

5樓:

if pos('中國','我是中國人,何必學外文,考試打0分,代表我的愛國心!')>0 then

showmessage('');

delphi 如何判斷一個字串是否包含漢字?

6樓: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;

我覺得最好還是在輸入之前判斷好一點

函式palin char判斷字串是否為迴文

有幾處錯誤,在以下 中以註釋方式標出 void toupper char s int palin char s return 1 void main if a s i z s i s i 32 if的條件有問題,a s i s i z while head while head 判斷迴文,用連結串列...

JS判斷字串變數是否含有某個字串的實現方法

使用indexof,例如 varcts bbltext if cts.indexof text 0 js判斷字串變數是否含有某個字串的實現方法 js判斷字串變數是否含有某個字串的方法 var str a var strs abadg if strs.indexof str 0 else php中 判...

c怎麼判斷字串裡是否包含另幾個字串

string str abcedafsafsd.xlsdsafdfsds.docx.dsafsdfsdfdsaff.rar string strs foreach string item in strs console.readline string str,name str txt doc xls...