怎么识别汉字?(20分)

  • 主题发起人 主题发起人 xygz
  • 开始时间 开始时间
X

xygz

Unregistered / Unconfirmed
GUEST, unregistred user!
我的程序要自己打印memo内的内容,为了判断是否超过边界,然后换行,
怎么分给呢?
 
sss:String
判断一下换行处的字符,
如 Ord(sss)>$7F 则是汉字
 
设某字符为c。
使用IsDBCSLeadByte(c),若返回True,表示是汉字的首字符。

建议使用Unicode,就不用判断是否汉字。
 
kyq:我记得好象也该这样,但
怎样用Unicode呢?
请指教!
 
如下:

var
s:WideString;

....

s:=Memo1.Lines.Text;

Delphi(应该说是Windows)会负责Ansi字符集到Unicode字符集的转换。
 
然后怎么分割呢?假如我想让程序将字符串分成两个?
 
照常使用Copy即可:
var
s1,s2:WideString;
....
s1:=Copy(s,1,4);
s2:=Copy(s,5,Length(s));
 
接受答案了.
 
后退
顶部