|
在很多情况下都要识别汉字,以下是函数 VString
' O* c( x& A; h5 r# \AnsiString __fastcall TForm1::VString(AnsiString ss)
, r& n @2 l: y# S { ( v* {' P) Z2 V, D& T+ r3 C9 H
AnsiString ass;
$ v0 Y9 q$ S9 m0 X; H6 f int ii,ll;
! o/ U; j/ P& V+ |4 F unsigned char cc; ( n" S5 T' r+ d# v! W5 n
ass="";
+ y6 a$ e0 n1 J r% L5 V; r- @ll=ss.Length();
2 i; j: [- J/ n; I! S2 M! _ for(ii=0;ii<ll;ii++)
/ ]9 s( Z4 G) j9 v3 @ n; U% ` {
2 ]6 r, ]/ A& ]+ y* V0 G cc=ss.c_str()[ii];
* f. z( Q! j% Q7 S* V if(cc>0xa0) 9 i( N6 Z5 l4 U) H9 |; Y$ F
{ . b* n! U- l! e& C4 |4 d0 T3 I
ass=ass+ss.SubString(ii+1,2);
! e; \. d0 ^ H6 k0 N i++; - U8 T0 q$ e+ Y6 G) s( x
} / W- l3 y$ \- t/ T
else 1 A4 M/ }1 A) W) F( H
{
! w j R7 O- S2 A0 `2 c ass=ass+ss.SubString(ii+1,1);
4 g/ U3 @1 `0 R4 ?) l, G1 _" O* ?( @ |
} * K' V0 y) e ^3 ~
} & m" q+ d& h- v4 o
return ass;
3 o$ O2 G: G4 j! S5 Z} |