|
在很多情况下都要识别汉字,以下是函数 VString
7 N, E1 X4 P7 b! z' |* F" a0 AAnsiString __fastcall TForm1::VString(AnsiString ss) 7 o. A# G' I2 K( e' i! m" ]
{
" D% i2 k& u# Z% C) y* R1 L AnsiString ass; / i }' _& F+ g% _2 p3 Y% f6 a
int ii,ll;
, Z2 v& W9 F- o. |7 R* i+ L unsigned char cc;
9 Q1 _7 d$ Y5 J* G6 X; {# B8 z ass=""; 6 U; m' V& r+ N% S
ll=ss.Length(); ! h5 p# u" G/ y7 t7 h3 d
for(ii=0;ii<ll;ii++)
( F9 i4 J8 o+ @2 L3 N5 }' J { 3 m1 N; c6 A% C2 `5 @5 @' q
cc=ss.c_str()[ii];
" h$ A- y2 n' B; ^, E; d if(cc>0xa0) & P8 I$ Z; C( c9 ~" O1 R+ x
{ - J& n8 D: @2 T8 @6 Y# @
ass=ass+ss.SubString(ii+1,2);
! q1 ~! ~& }6 ^: T i++; $ ^4 G3 Z$ n: C3 J- R
} 7 m( e- [* O/ o% `1 Q) G7 R, d
else
& Q6 B2 `4 b0 J' O5 b {
9 i( P* B2 r# j; N9 q( C ass=ass+ss.SubString(ii+1,1); & B( s& F1 Y9 S- q
g/ W' m/ T* v6 W3 Q0 H }
) h& ~; E+ m( A$ m, k) {# { }
; n1 d( V) ?; ?1 L( m- Y% v# l8 D return ass;
7 N9 c: R5 r+ l5 V0 m; [} |