|
在很多情况下都要识别汉字,以下是函数 VString
; `! X% }6 j: Q" B/ RAnsiString __fastcall TForm1::VString(AnsiString ss)
8 H( s# `) X8 M" F; k {
$ P+ l- ?; |( i' e AnsiString ass;
" Z* k3 |# O% L% O2 p( e( @, A int ii,ll;
0 R# q8 n( P) s. G9 L5 s8 T, ] unsigned char cc; & S8 x: ~' Q7 U$ j* r3 a4 s
ass=""; 5 [, P' f! }: J! E0 E! ~; |) Q
ll=ss.Length(); % I. {( p% R( e8 V( [2 L! j
for(ii=0;ii<ll;ii++) 1 c2 {5 p/ W& ^; A
{ % W4 y; k9 J! o( Y! l4 m
cc=ss.c_str()[ii]; l/ R1 M- e% G0 I& A
if(cc>0xa0)
6 j. G. F ^* l5 O { ( `( H, x: h% y0 A
ass=ass+ss.SubString(ii+1,2);
1 ?8 P" s# k# d' [6 e H i++;
$ I% ?, q9 ?/ X' W/ G }
) h% O' R6 Z& s: A* m, k- a else
5 g6 F, Q/ [0 b/ R- f { ' b! p( u% c+ l/ F& t1 E. f
ass=ass+ss.SubString(ii+1,1);
. E- p! S+ p) \, O
( h/ G" }! |" _' W+ ^4 C3 h } 8 W* x8 ~: H( K; h& i
} 3 V' z6 N$ o' }7 `
return ass; 1 y7 ]7 e# o2 \+ L$ @
} |