Delphi判断双字节字符的例子.rar

Delphi判断双字节，用法简单，在窗口输入框中输入字符串，单击按钮即可，程序会判断出是否包含有双字节字符，判断方法请看下边的代码段： 　　s := Edit1.Text; 　　i := 0; 　　while i　　begin 　　 if (ByteType(S,i) mbSingleByte) then 　　 begin 　　 s1 := s1 copy(s,i,2) ' '; 　　 i := i 2; 　　 end 　　 else 　　 i:= i 1; 　　end; 　　label2.Caption := trim(s1);