在很多情况下都要识别汉字,以下是函数 VString
1 r4 G2 q0 {1 i, N" I! L" JAnsiString __fastcall TForm1::VString(AnsiString ss) 1 T5 V$ J1 T+ Q. Q& P! [( b% T8 c
{ 7 G3 l# N h2 ^. }( w* T; l0 \7 v
AnsiString ass;
9 @8 w( q- z$ \$ k int ii,ll;
2 Y# z4 ]' o. `, p2 ?$ a" V; K unsigned char cc;
4 |7 m! |% _. t) z ass="";
* O2 d8 o* P7 N! M2 s6 hll=ss.Length();
" k0 a# E1 p3 o) H0 f for(ii=0;ii<ll;ii++)
. r' s' V2 K& r' s {
! C: J, R8 M/ x7 K/ w# B3 {6 X4 n cc=ss.c_str()[ii]; ! b/ ] U( _2 G
if(cc>0xa0) ) N% K. R0 k9 Y2 b L
{ ( D* J; q9 s1 @( R; K0 g
ass=ass+ss.SubString(ii+1,2);
* }: S. b8 X" e. _ i++; 4 S7 U' ~0 i. L9 c5 o
} # g. C. W7 @5 W9 C! d0 G$ J
else
7 N0 _9 e7 e5 v' ^ {
0 @, c- a3 l8 r ass=ass+ss.SubString(ii+1,1); + p# n' p1 o; U4 A
: r- i3 s0 b# z1 V+ ^$ y
}
- L x2 b* T7 E2 M }
: d2 ?0 R7 L- o( v2 P$ z return ass; 6 r/ H4 n7 F" O0 W1 y3 E
} |