|
在很多情况下都要识别汉字,以下是函数 VString
& N( S; {, Z4 w9 OAnsiString __fastcall TForm1::VString(AnsiString ss)
1 @. X u, B$ `. r { + u+ O9 V! L1 M- b. Q" l( d
AnsiString ass;
7 ~4 E) ~. O6 a* o, u/ V/ k- \ int ii,ll;
7 r9 l* r; Y4 U0 t, B unsigned char cc;
" g8 y) `& z( M0 X8 B ass="";
/ T6 [4 |- P; f& [' [, P5 j5 kll=ss.Length(); / N" \% o) `# }
for(ii=0;ii<ll;ii++) ( |4 c& u' f, _, g$ X* P* k2 j
{
V% w* f9 e' y cc=ss.c_str()[ii];
0 d6 I4 {$ U' r# a" } if(cc>0xa0)
/ [4 s: ^% n, E; ]5 D* M1 h; q { & Q2 e4 L9 f1 g6 Z+ d. l/ b" M
ass=ass+ss.SubString(ii+1,2); 6 e* A7 H2 A1 K
i++; % f1 k- j2 [3 A% x: C% G
} 1 W3 o" U( Q. v3 L* v2 M
else ) F+ X8 d5 o% Z* s0 u4 H7 Z
{ / W8 l# L0 p, v" X6 v8 P% I$ ^, o) V
ass=ass+ss.SubString(ii+1,1);
' z( \& `" Y3 w% Q! V' t. J. \) x
} * N( B Q/ o0 m: l2 |. q( Z
}
8 S) f1 z3 t8 z' l$ ?* n, Z( O return ass;
- K* k5 Q- a( Z} |