Delphi如何判斷一個字符串是否包含漢字？//strText:字符串)：Boolean var I:integerbegin//首先確定要截取的字符串的最后一個字節(jié)的類型//如果它是漢字的第一個字節(jié)

Delphi如何判斷一個字符串是否包含漢字？

//strText:字符串)：Boolean var I:integerbegin//首先確定要截取的字符串的最后一個字節(jié)的類型//如果它是漢字的第一個字節(jié)，則減去（添加）一位。結(jié)果：=false，對于I：=0到長度（strtxt）dobeginf bytetype（strtxt，一） =mbleadbyte Thenbiginresult:=truebreakendend///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////判斷字符是否為漢字，返回true；如果不是漢字，返回false函數(shù)ismbcchar（const ch:char）：Boolean biginresult:=（bytetype（ch，1）Mbsinglebyte）end我覺得輸入前最好先判斷

Delphi提供的字符串函數(shù)中有POS函數(shù)，定義為：函數(shù)POS（substr:String s:String）：Integer用于在字符串s中查找substr。返回值是substr第一次出現(xiàn)在s中的位置。如果未找到，則返回值為0。使用POS函數(shù)查找字符第一次出現(xiàn)的位置