|
在很多情况下都要识别汉字,以下是函数 VString 4 w+ p+ ]$ F9 Y; c& i
AnsiString __fastcall TForm1::VString(AnsiString ss) 0 p6 b' h+ ^& d. V* n$ p: T' W
{ $ q( D! \; L6 J9 N
AnsiString ass;
7 F; o8 W( `: u6 O int ii,ll; 0 h O0 v9 l) X* p
unsigned char cc; # i+ {$ s) \+ k0 [% C0 K
ass="";
1 X7 z: {% s, L( t9 x. X$ Fll=ss.Length(); * ^. s5 p x* u. X
for(ii=0;ii<ll;ii++)
3 D( ?7 @2 e, X" O9 X, p6 U) p {
8 K# E ]# \2 r7 q2 x& U4 f7 b cc=ss.c_str()[ii]; & z2 @ j0 `2 o- W i
if(cc>0xa0)
" t$ B F; Q1 `- S. Y { 0 @) P0 ~% z5 S: ]) A
ass=ass+ss.SubString(ii+1,2);
5 E/ j, |/ @6 d- N% E i++; 3 V$ O) c$ ?5 E5 O) n
}
' W1 b" W2 R9 D: U+ f6 ?7 K else
& D: _. W# n3 O/ z' M3 \3 K { * v# j7 @/ B( z& G/ \" c- T+ y$ s
ass=ass+ss.SubString(ii+1,1);
9 d* {) Q0 f% d& |" j( R5 r% d/ ^/ f6 s4 S, g8 a3 O
}
5 ~7 E. o- w' R4 P. H2 U* z% h; u } 0 Y$ A7 q l$ Z5 K
return ass;
3 J" T6 L. M: G} |