Hi,各位先進大家好:
Tw_Str := '金山詞霸';
CN_Str := '金山词霸';
Label1.Caption := IntToStr(Length(AnsiString(Tw_Str)));
Label2.Caption := IntToStr(Length(AnsiString(CN_Str)));
如以上Code,繁體字取得的值是8,但簡體字取得的是7,Why?
謝謝!

編碼問題吧

你用showmessage

簡體show出來的應該是 金山?霸

那個問號佔 1
其它3字佔 2
2 2 1 2=7

因為強制轉換AnsiString(UNICODE_STRING), 
會依系統預設語文編碼轉換,
因此繁中可順利轉為 AnsiString(8-Bytes),
但簡中就轉錯了, 所以變成7碼

你要这个长度来干什么？

在 Unicode 系统里面，直接这样转换没有意义。要转换，用 TEncoding.Convert 或者 TEncoding 的类似方法。但实际上这个长度，并不是真正的 Byte 数。

Hi,感謝 Max5020及Pcplayer99先進的指導:
小弟最主要問題是因為要列印報表(因沒有標準格式,只能用 PrinterCanvas輸出,
偏偏客戶要的字型英/中並非1/2字寬....(好像一般字也是),但卻要對齊,
只能一個字一個字輸出,所以需要知道輸出的字所佔的"寬"度,
謝謝!

===================引 用 pcplayer99 文 章===================
你要这个长度来干什么？

在 Unicode 系统里面，直接这样转换没有意义。要转换，用 TEncoding.Convert 或者 TEncoding 的类似方法。但实际上这个长度，并不是真正的 Byte 数。

這個問題也困擾了我很久,還是覺得用中文字的第一字元大於127的方式比較正確.


[code cpp]
請在此區域輸入程式碼
//Unicode長度幾個Bytes
int GetBytesOfUnicodeString(UnicodeString uu)
{
// return ByteLength(uu);

// return AnsiString(uu).Length();

/*
//"上?指?";
int rc = 0;
HDC c = CreateDC("DISPLAY", "", "", NULL);
if (c)
{
TCanvas *a = new TCanvas();
if (a)
{
a->Handle = c;
a->Font->Name="Courier";
rc = a->TextWidth(uu)/a->TextWidth("A");
delete a;
}
DeleteDC(c);
}
return rc;
*/

int rc = 0;
for (int i = 1; i <= uu.Length(); i＋＋)
{
if (uu[i] > 127) rc ＋= 2;
else rc＋＋;
}
return rc;
}

[/code]

編輯記錄