Delphi 2010 程式碼:

procedure TForm1.Button1Click(Sender: TObject);
Const hh:array[1..8] of byte=($61,$62,$43,$44,$B4,$FA,$B8,$D5);
begin
label1.Caption:=char(hh[1]) char(hh[2]) char(hh[3]) char(hh[4]);
label2.Caption:=char(hh[5]) char(hh[6]) char(hh[7]) char(hh[8]);
end;

其中 $61,$62,$43,$44 是 abCD 的 Hex,執行結果是 abCD 沒錯.
其中 $B4,$FA,$B8,$D5 是 "測試" 的 Hex,執行結果是亂碼,而不是中文字"測試" ??

想問,如何將 $B4,$FA,$B8,$D5 於 Label 上顯示出中文 ??

非常的感謝.

1. 因為您使用的是 Delphi 2010, Label.Caption 為1個字元為 2 bytes, 硬把"測試" 這2個字 4 bytes 的內容拆開成 "char(hh[5])+char(hh[6])+char(hh[7])+char(hh[8])" 4個字元 8 bytes , 內容當然是亂碼...

2. 您的"測試" -> $B4,$FA,$B8,$D5 是 Big5 的編碼.

3. 依照您的程式, 如果硬要把該 byte arry 轉成WideString 指定給 Delphi 2010 Label.Caption, 可以試試:

[code delphi]
procedure TForm1.FormCreate(Sender: TObject);
Const hh:array[1..8] of byte=($61,$62,$43,$44,$B4,$FA,$B8,$D5);
var
W : WideString;
S : AnsiString;
U8 : Utf8String;
begin
SetLength(S, 4);
CopyMemory(@S[1], @hh[5], 4);
U8 := AnsiToUtf8(S);
W := Utf8Decode(U8);
end;

[/code]


===================引 用 vlvltemp 文 章===================
Delphi 2010 程式碼:

procedure TForm1.Button1Click(Sender: TObject);
Const hh:array[1..8] of byte=($61,$62,$43,$44,$B4,$FA,$B8,$D5);
begin
label1.Caption:=char(hh[1]) char(hh[2]) char(hh[3]) char(hh[4]);
label2.Caption:=char(hh[5]) char(hh[6]) char(hh[7]) char(hh[8]);
end;

其中 $61,$62,$43,$44 是 abCD 的 Hex,執行結果是 abCD 沒錯.
其中 $B4,$FA,$B8,$D5 是 "測試" 的 Hex,執行結果是亂碼,而不是中文字"測試" ??

想問,如何將 $B4,$FA,$B8,$D5 於 Label 上顯示出中文 ??

非常的感謝.

要顯示 Big5 很簡單, 只要記得它是用 AsnisChar 來顯示就好

程式改成這樣就行
label2.Caption:=Ansichar(hh[5]) Ansichar(hh[6]) Ansichar(hh[7]) Ansichar(hh[8]);

你這段程式碼在 D1-D7 都是對的, 會顯示"測試", 因為 D1-D7 的 Char = AnsiChar
但是到了2009以後就有問題了, 因為 Char = WideChar

再多說一點, 比如說:
var str: String;
str := '這是測試';
Length(str) = ?
在 D7 中, 答案是8, 在2010中, 答案是4 這就是 Default Char Set 的不同.
D7 預設是 Big5, 2010 是 UTF-16LE

===================引 用 vlvltemp 文 章===================
Delphi 2010 程式碼:

procedure TForm1.Button1Click(Sender: TObject);
Const hh:array[1..8] of byte=($61,$62,$43,$44,$B4,$FA,$B8,$D5);
begin
label1.Caption:=char(hh[1]) char(hh[2]) char(hh[3]) char(hh[4]);
label2.Caption:=char(hh[5]) char(hh[6]) char(hh[7]) char(hh[8]);
end;

其中 $61,$62,$43,$44 是 abCD 的 Hex,執行結果是 abCD 沒錯.
其中 $B4,$FA,$B8,$D5 是 "測試" 的 Hex,執行結果是亂碼,而不是中文字"測試" ??

想問,如何將 $B4,$FA,$B8,$D5 於 Label 上顯示出中文 ??

非常的感謝.

------
Mephise Chen
前興德工程師

編輯記錄

非常的感謝 Victor4022 及 mephise 兩位大大快速的回文,
經我於 Delphi 2010 中測試,
2 位大大的方法都是正確的.
但由於只能選 1 位得分者,
我選擇 mephise
原因:
解法比較簡單易懂.
對 Victor4022 大大真的很抱歉,
我知您也位高手,
再次跟您說聲抱歉.
2 位大大謝謝您們.