怎样将存在Char数组中的中中文字符取出来？ (20分)

D

DaChu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-29

• #1

var
TmpChar: Char;
i: integer;
TmpPChar: PChar;
ArrChr: Array[0..10] of char;
begin
FillChar(ArrChr,600,0);
TmpPChar := '汉字';
for i:=0 to Length(TmpPChar) do
begin
ArrChr := TmpPchar;
end;
Memo1.Lines.Add(IntToStr(Length(arrChr)));
Memo1.Lines.Add(ArrChr[0]+ArrChr[1]);

 

W

wqhatnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-29

• #2

var
TmpChar: Char;
i: integer;
TmpPChar: PChar;
ArrChr: Array[0..9] of char;
begin
//FillChar(ArrChr,600,0);
TmpPChar := '汉字';
for i:=0 to Length(TmpPChar) do
begin
ArrChr := TmpPchar;
end;
Memo1.Lines.Add(IntToStr(Length(arrChr)));
Memo1.Lines.Add(ArrChr[0]+ArrChr[1]);
end;

 

H

Highpeak

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-29

• #3

注意汉字占两个字节就行了

 

D

DaChu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-29

• #4

不好意思，刚才算错误位置了,搞定

 

D

DaChu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-29

• #5

多人接受答案了。