delphi处理特殊汉字的问题请教，各位大哥帮忙！(100分)

woainin · 2008-05-14

zjan521 · 2008-05-14

CharNext         (the String's CodePage must be same with system local) or use Unicode

lxw5214 · 2008-05-14

先用ByteType函数判断一下，是单字节字符还是双字节字符；详情查帮助；

HJ.Yao · 2008-05-14

procedure TForm1.Button1Click(Sender: TObject); var i,c:Integer; begin   c:=Length('|亿ab中|');   for i:=1 to c-1 do   begin     ShowMessage(MidStr('|亿ab中|',i,1));   end; end; 主要的问题在于Length这个函数，它是把双字节的长度算作2，所以，你只能在For循环的时候进行处理把取到为空的跳过

woainin · 2008-05-14

但是‘|亿|’正常，'|珅|'就不正常了。 HJ.Yao兄弟说的也没错，但是如果我的文件里本来有两个连续的||就不好办了，如： |亿|||ab中||珅|||

vvyang · 2008-05-14

To 楼主： 给你写了个函数，应该没问题： var   s: string;   p: PChar;   num: Integer;   fareast: Boolean; begin   s := '|亿|||ab中||珅|||';   p := PChar(s);   num := 0;   fareast := False;   while p^ <> #0 do   begin     if fareast then fareast := False     else if Byte(p^) >= 160 then fareast := True     else if p^ = '|' then Inc(num);     Inc(p);   end;   ShowMessage(IntToStr(num)); end; 应该弹出对话框“9”，另外比你自己写的快 30 倍。字符串的比较一定要用指针，Copy 什么的效率极低！

woainin · 2008-05-21

谢谢vvyang兄， 我明天试试看，其实我的应用比我描述的要复杂很多我只是把它抽象了下， 谢谢啊！

vvyang · 2008-05-22

To woainin： 能用就揭帖，不能用就说话。

vvyang · 2008-05-24

楼主，您以为 100 分很多么？能用就结帖，不能用说一声，实在不行我倒找你 300 分！

不能没有你 · 2008-05-24

建议使用unicode widestring来解决这一问题

xjsd12 · 2008-05-24

TO woainin: 先把分给vvyang! 用 WideString就是了 var   temp: WideString; begin   temp:='|珅|';      StrLen:=Length(temp);      for k:=1 to StrLen do        begin          if temp[k]='|' then              Num:=Num+1;        end;

apiao · 2008-05-25

widestring是正解

月满C楼 · 2008-05-25

//修改xjsd12的方法 procedure TForm1.Button1Click(Sender: TObject); var   temp: WideString;   StrLen:word;   Num,k:integer; begin   temp:='|珅|';   StrLen:=Length(temp);   Num:=0;   for k:=1 to StrLen do   begin    if temp[k]='|' then        Num:=Num+1;   end;   caption:=inttostr(Num); end;

3cs · 2008-05-29

WideString支持Unicode 支持双字节 用WideString是正解.

delphi_zys · 2008-06-08

支持：widestring是正解

PENGS · 2008-06-09

你到以下地址去找找，可能找得到你需要的答案。 http://iinsnian.cnblogs.com/ http://del.cnblogs.com/ 这两个地址里介绍了很多ＤＥＬＰＨＩ的技巧，不知道你的运气好不好。

LSUPER · 2008-06-09

直接使用 AnsiPos 即可

delphi处理特殊汉字的问题请教，各位大哥帮忙！(100分)

woainin

Unregistered / Unconfirmed

zjan521

Unregistered / Unconfirmed

lxw5214

Unregistered / Unconfirmed

HJ.Yao

Unregistered / Unconfirmed

woainin

Unregistered / Unconfirmed

vvyang

Unregistered / Unconfirmed

woainin

Unregistered / Unconfirmed

vvyang

Unregistered / Unconfirmed

vvyang

Unregistered / Unconfirmed

不能没有你

Unregistered / Unconfirmed

xjsd12

Unregistered / Unconfirmed

apiao

Unregistered / Unconfirmed

月满C楼

Unregistered / Unconfirmed

3cs

Unregistered / Unconfirmed

delphi_zys

Unregistered / Unconfirmed

PENGS

Unregistered / Unconfirmed

LSUPER

Unregistered / Unconfirmed

Similar threads