|
在很多情况下都要识别汉字,以下是函数 VString
" u) S4 B$ W* b q0 hAnsiString __fastcall TForm1::VString(AnsiString ss) $ `4 u, m! `$ M/ d! b! x# c; A
{
, U' E6 q, r5 {0 d AnsiString ass;
! m( g, L/ {( B. ?# K int ii,ll; , U: S/ ]$ ^+ `8 Z9 T! ^: I
unsigned char cc;
4 w$ f! J" Z& W: i! l+ [ ass=""; ; J6 s/ `; G" d, P$ K8 U! @& A
ll=ss.Length(); / j/ x, o7 V3 Z6 K( M# n# d
for(ii=0;ii<ll;ii++) " L- @6 x' h; T/ @
{ / ?0 Z$ L8 `7 p% L0 e" o* m
cc=ss.c_str()[ii];
- I% X3 l @. j, q* i if(cc>0xa0) / O: V: s4 H4 q. Q1 Z( d: I
{ . q' ?1 W$ J, Y1 o7 W
ass=ass+ss.SubString(ii+1,2); 2 o/ \- B1 W8 ~* i+ {; n0 ]1 C
i++;
* _. u6 O: V' z } $ I; O- f2 D& F" _1 E2 }: v
else 2 R* h8 P' y8 [; \ M
{ 8 g+ N4 c4 `: O* Z7 o, ]2 E
ass=ass+ss.SubString(ii+1,1);
4 s( ~; b, X. n# F; I4 H2 y& k$ a2 E% t; S% H9 z
} : D- |; U. S c6 h8 W
} * M. l* N; K( d
return ass;
/ N0 N6 n) X* q; t/ S, I# L} |