J
juziling
Unregistered / Unconfirmed
GUEST, unregistred user!
程序中我已用 LCMapString 函数能将Big5码转成GB码，ANSITOUTF8 函数能将 GB码转成UTF8 码。但问题是 这样转换后繁体字都变成简体字了。如何直接将Big5转成UTF8码。请给出具体操作方法，在网上搜索了一个下午都没有实现；－（
您正在使用一款已经过时的浏览器！部分功能不能正常使用。
请尝试升级或使用 其他浏览器。
请尝试升级或使用 其他浏览器。
H
hehuan
Unregistered / Unconfirmed
GUEST, unregistred user!
找到一篇文章，不知道对你是否有帮助。不是为赚分，纯粹是为对你有所启发
BIG5和GB互换
Gb2312 高字節範圍 0xa1 <= Gb2312.High <= 0xf7
Gb2312 低字節範圍 0xa1 <= Gb2312.Low <= 0xfe
Big5 高字節範圍 0xa1 <= Big5.High <= 0xf9
Big5 低字節範圍 0x40 <= Big5.Low <= 0xfe
可以看出，big5碼的低字節的範圍比gb2312要大，當字串中出現了低字節介於0x40,0xa0之間，則說明是big5碼！也就是說，給的漢字多一些才能準確判斷！
interface
function GBtoBIG5(value: string): string;
function BIG5toGB(value: string): string;
implementation
var
BIG5Order: array[0..14757] of Word;
GBOrder : array[0..8177] of Word;
function GBOffset(value: string): integer;
begin
if length(value) >= 2 then
Result := (Ord(value[1]) - 161) * 94 + (Ord(value[2]) - 161)
else
Result := -1;
end;
function BIG5Offset(value: string): integer;
begin
Result := -1;
if length(value) >= 2 then
begin
if (Ord(value[2]) >= 64) and (Ord(value[2]) <= 126) then
Result := (Ord(value[1]) - 161) * 157 + (Ord(value[2]) - 64);
if (Ord(value[2]) >= 161) and (Ord(value[2]) <= 254) then
Result := (Ord(value[1]) - 161) * 157 + 63 + (Ord(value[2]) - 161);
end
end;
function WordToString(value: Word): string;
begin
Result := Chr(Hi(value)) + Chr(Lo(Value));
end;
function isBIG5(value: string): Boolean;
begin
if (length(value)>=2) then
begin
if (value[1] < #161) then
Result := false
else
if ((value[2] >= #64) and (value[2] <= #126)) or ((value[2] >= #161) and (value[2] <= #254)) then
Result := true
else
Result := false
end
else
Result := false
end;
function isGB(value: string): Boolean;
begin
if (length(value)>=2) then
begin
if (value[1] <= #161) and (value[1] >= #247) then
Result := false
else
if (value[2] <= #161) and (value[2] >= #254) then
Result := false
else
Result := true
end
else
Result := true;
end;
function GBtoBIG5(value: string): string;
var
leng, idx : integer;
tmpStr : string[2];
Offset : integer;
output : string;
begin
output := '';
leng := length(value);
idx := 1;
while idx <= leng do
begin
tmpStr := value[idx]+ value[idx + 1];
if isGB(tmpStr) then
begin
offset:=GBOffset(tmpStr);
if (offset >= 0) and (offset <= 8177) then
begin
output := output + WordToString(GBOrder[offset]);
inc(idx);
end
else
output := output + value[idx] ;
end
else
output := output + value[idx] ;
inc(idx, 1);
end;
Result := output;
end;
function BIG5toGB(value: string): string;
var
leng, idx : integer;
tmpStr : string[2];
output : string;
offset : integer;
begin
output := '';
leng := length(value);
idx := 1;
while idx <= leng do
begin
tmpStr := value[idx]+ value[idx + 1];
if isBIG5(tmpStr) then
begin
offset:=BIG5Offset(tmpStr);
if (offset >= 0) and (offset <= 14757) then
begin
output := output + WordToString(BIG5Order[offset]);
inc(idx);
end
else
output := output + value[idx];
end
else
output := output + value[idx];
inc(idx);
end;
Result := output;
end;
initialization
BIG5Order[0] := $2020;
BIG5Order[1] := $A3AC;
BIG5Order[2] := $A1A2;
BIG5Order[3] := $A1A3;
BIG5Order[4] := $2020;
BIG5Order[5] := $A1A4;
BIG5Order[6] := $A3BB;
BIG5Order[7] := $A3BA;
BIG5Order[8] := $A3BF;
BIG5Order[9] := $A3A1;
BIG5Order[10] := $A1C3;
BIG5Order[11] := $A9A9;
BIG5Order[12] := $A1A7;
BIG5Order[13] := $A3AC;
BIG5Order[14] := $2020;
BIG5Order[15] := $A3AE;
BIG5Order[16] := $2020;
BIG5Order[17] := $A3BB;
BIG5Order[18] := $A3BA;
BIG5Order[19] := $A3BF;
BIG5Order[20] := $2020;
BIG5Order[21] := $A9A7;
BIG5Order[22] := $A9A5;
BIG5Order[23] := $A9A6;
BIG5Order[24] := $A9A4;
BIG5Order[25] := $2020;
BIG5Order[26] := $A3DF;
BIG5Order[27] := $2020;
BIG5Order[28] := $2020;
BIG5Order[29] := $A3A8;
BIG5Order[30] := $A3A9;
BIG5Order[31] := $A1D0;
BIG5Order[32] := $2020;
BIG5Order[33] := $A3FB;
BIG5Order[34] := $A3FD;
BIG5Order[35] := $2020;
BIG5Order[36] := $2020;
BIG5Order[37] := $A1B1;
BIG5Order[38] := $A1B2;
BIG5Order[39] := $2020;
BIG5Order[40] := $2020;
BIG5Order[41] := $A1BE;
BIG5Order[42] := $A1BF;
BIG5Order[43] := $2020;
BIG5Order[44] := $2020;
BIG5Order[45] := $A1B6;
BIG5Order[46] := $A1B7;
BIG5Order[47] := $A1C4;
BIG5Order[48] := $A1C5;
BIG5Order[49] := $A1B4;
BIG5Order[50] := $A1B5;
BIG5Order[51] := $2020;
BIG5Order[52] := $A1A6;
BIG5Order[53] := $A1B8;
BIG5Order[54] := $A1B9;
BIG5Order[55] := $2020;
BIG5Order[56] := $2020;
BIG5Order[57] := $A1BA;
BIG5Order[58] := $A1BB;
BIG5Order[59] := $2020;
BIG5Order[60] := $2020;
BIG5Order[61] := $A3A8;
BIG5Order[62] := $A3A9;
BIG5Order[63] := $2020;
BIG5Order[64] := $2020;
BIG5Order[65] := $A1B1;
BIG5Order[66] := $A1B2;
BIG5Order[67] := $A1AE;
BIG5Order[68] := $A3A7;
BIG5Order[69] := $A1B0;
BIG5Order[70] := $A1B1;
BIG5Order[71] := $2020;
BIG5Order[72] := $A3A2;
BIG5Order[73] := $A3E0;
BIG5Order[74] := $2020;
BIG5Order[75] := $A3A3;
BIG5Order[76] := $A3A6;
BIG5Order[77] := $A3AA;
BIG5Order[78] := $A1F9;
BIG5Order[79] := $A1EC;
BIG5Order[80] := $2020;
BIG5Order[81] := $A1F0;
BIG5Order[82] := $A1F1;
BIG5Order[83] := $A1F7;
BIG5Order[84] := $A1F8;
BIG5Order[85] := $A1F2;
BIG5Order[86] := $A1EE;
BIG5Order[87] := $A1EF;
BIG5Order[88] := $A1F3;
BIG5Order[89] := $A1F4;
BIG5Order[90] := $A1F5;
BIG5Order[91] := $A1F6;
BIG5Order[92] := $2020;
BIG5Order[93] := $2020;
BIG5Order[94] := $2020;
BIG5Order[95] := $2020;
BIG5Order[96] := $A1A5;
BIG5Order[97] := $2020;
BIG5Order[98] := $2020;
BIG5Order[99] := $2020;
BIG5Order[100] := $2020;
BIG5Order[101] := $2020;
BIG5Order[102] := $2020;
BIG5Order[103] := $2020;
BIG5Order[104] := $2020;
BIG5Order[105] := $2020;
BIG5Order[106] := $2020;
BIG5Order[107] := $2020;
BIG5Order[108] := $2020;
BIG5Order[109] := $A3AB;
BIG5Order[110] := $2020;
BIG5Order[111] := $A1C1;
BIG5Order[112] := $A1C2;
BIG5Order[113] := $A1C0;
BIG5Order[114] := $2020;
BIG5Order[115] := $A3BC;
BIG5Order[116] := $A3BE;
BIG5Order[117] := $A3BD;
BIG5Order[118] := $A1DC;
BIG5Order[119] := $A1DD;
BIG5Order[120] := $A1D9;
BIG5Order[121] := $A1DE;
BIG5Order[122] := $2020;
BIG5Order[123] := $A1D4;
BIG5Order[124] := $2020;
BIG5Order[125] := $2020;
BIG5Order[126] := $2020;
BIG5Order[127] := $2020;
BIG5Order[128] := $2020;
BIG5Order[129] := $A1AB;
BIG5Order[130] := $A1C9;
BIG5Order[131] := $A1C8;
BIG5Order[132] := $2020;
BIG5Order[133] := $A1CF;
BIG5Order[134] := $2020;
BIG5Order[135] := $2020;
BIG5Order[136] := $2020;
BIG5Order[137] := $2020;
BIG5Order[138] := $A1D2;
BIG5Order[139] := $A1D3;
BIG5Order[140] := $A1DF;
BIG5Order[141] := $A1E0;
BIG5Order[142] := $A1E2;
BIG5Order[143] := $A1E1;
BIG5Order[144] := $2020;
BIG5Order[145] := $A1D1;
BIG5Order[146] := $A1FC;
BIG5Order[147] := $A1FD;
BIG5Order[148] := $A1FB;
BIG5Order[149] := $A1FA;
BIG5Order[150] := $2020;
回复人：hf(2000-8-17 12:54:00) 得0分
BIG5Order[151] := $2020;
BIG5Order[152] := $2020;
BIG5Order[153] := $2020;
BIG5Order[154] := $A1AC;
BIG5Order[155] := $2020;
BIG5Order[156] := $A3AF;
BIG5Order[157] := $A3DC;
BIG5Order[158] := $2020;
BIG5Order[159] := $2020;
BIG5Order[160] := $A1E7;
BIG5Order[161] := $A3A4;
BIG5Order[162] := $2020;
BIG5Order[163] := $A1E9;
BIG5Order[164] := $A1EA;
BIG5Order[165] := $A3A5;
BIG5Order[166] := $2020;
BIG5Order[167] := $A1E6;
BIG5Order[168] := $2020;
BIG5Order[169] := $2020;
BIG5Order[170] := $2020;
BIG5Order[171] := $A3C0;
BIG5Order[172] := $2020;
BIG5Order[173] := $2020;
BIG5Order[174] := $2020;
BIG5Order[175] := $2020;
BIG5Order[176] := $2020;
BIG5Order[177] := $2020;
BIG5Order[178] := $2020;
BIG5Order[179] := $2020;
BIG5Order[180] := $2020;
BIG5Order[181] := $A1E3;
BIG5Order[182] := $2020;
BIG5Order[183] := $2020;
BIG5Order[184] := $2020;
BIG5Order[185] := $2020;
BIG5Order[186] := $2020;
BIG5Order[187] := $2020;
BIG5Order[188] := $2020;
BIG5Order[189] := $2020;
BIG5Order[190] := $2020;
BIG5Order[191] := $2020;
BIG5Order[192] := $2020;
BIG5Order[193] := $2020;
BIG5Order[194] := $2020;
BIG5Order[195] := $2020;
BIG5Order[196] := $2020;
BIG5Order[197] := $2020;
BIG5Order[198] := $2020;
BIG5Order[199] := $2020;
BIG5Order[200] := $2020;
BIG5Order[201] := $2020;
BIG5Order[202] := $2020;
BIG5Order[203] := $2020;
BIG5Order[204] := $2020;
BIG5Order[205] := $2020;
BIG5Order[206] := $A9EF;
BIG5Order[207] := $A9DF;
BIG5Order[208] := $A9D7;
BIG5Order[209] := $A9CF;
BIG5Order[210] := $A9C7;
BIG5Order[211] := $A3FE;
BIG5Order[212] := $2020;
BIG5Order[213] := $2020;
BIG5Order[214] := $2020;
BIG5Order[215] := $A9B3;
BIG5Order[216] := $A9B7;
BIG5Order[217] := $A9BB;
BIG5Order[218] := $A9BF;
BIG5Order[219] := $2020;
BIG5Order[220] := $2020;
BIG5Order[221] := $2020;
BIG5Order[222] := $2020;
BIG5Order[223] := $2020;
BIG5Order[224] := $2020;
BIG5Order[225] := $2020;
BIG5Order[226] := $2020;
BIG5Order[227] := $2020;
BIG5Order[228] := $2020;
BIG5Order[229] := $2020;
BIG5Order[230] := $2020;
BIG5Order[231] := $2020;
BIG5Order[232] := $2020;
BIG5Order[233] := $2020;
BIG5Order[234] := $A3B0;
BIG5Order[235] := $A3B1;
BIG5Order[236] := $A3B2;
BIG5Order[237] := $A3B3;
BIG5Order[238] := $A3B4;
BIG5Order[239] := $A3B5;
BIG5Order[240] := $A3B6;
BIG5Order[241] := $A3B7;
BIG5Order[242] := $A3B8;
BIG5Order[243] := $A3B9;
BIG5Order[244] := $A2F1;
BIG5Order[245] := $A2F2;
BIG5Order[246] := $A2F3;
BIG5Order[247] := $A2F4;
BIG5Order[248] := $A2F5;
BIG5Order[249] := $A2F6;
BIG5Order[250] := $A2F7;
BIG5Order[251] := $A2F8;
BIG5Order[252] := $A2F9;
BIG5Order[253] := $A2FA;
BIG5Order[254] := $2020;
BIG5Order[255] := $2020;
BIG5Order[256] := $2020;
BIG5Order[257] := $2020;
BIG5Order[258] := $2020;
BIG5Order[259] := $2020;
BIG5Order[260] := $2020;
BIG5Order[261] := $2020;
BIG5Order[262] := $2020;
BIG5Order[263] := $2020;
BIG5Order[264] := $2020;
BIG5Order[265] := $2020;
BIG5Order[266] := $A3C1;
BIG5Order[267] := $A3C2;
BIG5Order[268] := $A3C3;
BIG5Order[269] := $A3C4;
BIG5Order[270] := $A3C5;
BIG5Order[271] := $A3C6;
BIG5Order[272] := $A3C7;
BIG5Order[273] := $A3C8;
BIG5Order[274] := $A3C9;
BIG5Order[275] := $A3CA;
BIG5Order[276] := $A3CB;
BIG5Order[277] := $A3CC;
BIG5Order[278] := $A3CD;
BIG5Order[279] := $A3CE;
BIG5Order[280] := $A3CF;
BIG5Order[281] := $A3D0;
BIG5Order[282] := $A3D1;
BIG5Order[283] := $A3D2;
BIG5Order[284] := $A3D3;
BIG5Order[285] := $A3D4;
BIG5Order[286] := $A3D5;
BIG5Order[287] := $A3D6;
BIG5Order[288] := $A3D7;
BIG5Order[289] := $A3D8;
BIG5Order[290] := $A3D9;
BIG5Order[291] := $A3DA;
BIG5Order[292] := $A3E1;
BIG5Order[293] := $A3E2;
BIG5Order[294] := $A3E3;
BIG5Order[295] := $A3E4;
BIG5Order[296] := $A3E5;
BIG5Order[297] := $A3E6;
BIG5Order[298] := $A3E7;
BIG5Order[299] := $A3E8;
BIG5Order[300] := $A3E9;
BIG5Order[301] := $A3EA;
BIG5Order[302] := $A3EB;
BIG5Order[303] := $A3EC;
BIG5Order[304] := $A3ED;
BIG5Order[305] := $A3EE;
BIG5Order[306] := $A3EF;
BIG5Order[307] := $A3F0;
BIG5Order[308] := $A3F1;
BIG5Order[309] := $A3F2;
BIG5Order[310] := $A3F3;
BIG5Order[311] := $A3F4;
BIG5Order[312] := $A3F5;
BIG5Order[313] := $A3F6;
BIG5Order[314] := $A3F7;
BIG5Order[315] := $A3F8;
BIG5Order[316] := $A3F9;
BIG5Order[317] := $A3FA;
BIG5Order[318] := $A6A1;
BIG5Order[319] := $A6A2;
BIG5Order[320] := $A6A3;
BIG5Order[321] := $A6A4;
BIG5Order[322] := $A6A5;
BIG5Order[323] := $A6A6;
BIG5Order[324] := $A6A7;
BIG5Order[325] := $A6A8;
BIG5Order[326] := $A6A9;
BIG5Order[327] := $A6AA;
BIG5Order[328] := $A6AB;
BIG5Order[329] := $A6AC;
BIG5Order[330] := $A6AD;
BIG5Order[331] := $A6AE;
BIG5Order[332] := $A6AF;
BIG5Order[333] := $A6B0;
BIG5Order[334] := $A6B1;
BIG5Order[335] := $A6B2;
BIG5Order[336] := $A6B3;
BIG5Order[337] := $A6B4;
BIG5Order[338] := $A6B5;
BIG5Order[339] := $A6B6;
BIG5Order[340] := $A6B7;
BIG5Order[341] := $A6B8;
BIG5Order[342] := $A6C1;
BIG5Order[343] := $A6C2;
BIG5Order[344] := $A6C3;
BIG5Order[345] := $A6C4;
BIG5Order[346] := $A6C5;
BIG5Order[347] := $A6C6;
BIG5Order[348] := $A6C7;
BIG5Order[349] := $A6C8;
BIG5Order[350] := $A6C9;
BIG5Order[351] := $A6CA;
BIG5Order[352] := $A6CB;
BIG5Order[353] := $A6CC;
BIG5Order[354] := $A6CD;
BIG5Order[355] := $A6CE;
BIG5Order[356] := $A6CF;
BIG5Order[357] := $A6D0;
BIG5Order[358] := $A6D1;
BIG5Order[359] := $A6D2;
BIG5Order[360] := $A6D3;
BIG5Order[361] := $A6D4;
BIG5Order[362] := $A6D5;
BIG5Order[363] := $A6D6;
BIG5Order[364] := $A6D7;
BIG5Order[365] := $A6D8;
BIG5Order[366] := $A8C5;
BIG5Order[367] := $A8C6;
BIG5Order[368] := $A8C7;
BIG5Order[369] := $A8C8;
BIG5Order[370] := $A8C9;
BIG5Order[371] := $A8CA;
BIG5Order[372] := $A8CB;
BIG5Order[373] := $A8CC;
BIG5Order[374] := $A8CD;
BIG5Order[375] := $A8CE;
BIG5Order[376] := $A8CF;
BIG5Order[377] := $A8D0;
BIG5Order[378] := $A8D1;
BIG5Order[379] := $A8D2;
BIG5Order[380] := $A8D3;
BIG5Order[381] := $A8D4;
BIG5Order[382] := $A8D5;
BIG5Order[383] := $A8D6;
BIG5Order[384] := $A8D7;
BIG5Order[385] := $A8D8;
BIG5Order[386] := $A8D9;
BIG5Order[387] := $A8DA;
BIG5Order[388] := $A8DB;
BIG5Order[389] := $A8DC;
BIG5Order[390] := $A8DD;
BIG5Order[391] := $A8DE;
BIG5Order[392] := $A8DF;
BIG5Order[393] := $A8E0;
BIG5Order[394] := $A8E1;
BIG5Order[395] := $A8E2;
BIG5Order[396] := $A8E3;
BIG5Order[397] := $A8E4;
BIG5Order[398] := $A8E5;
BIG5Order[399] := $A8E6;
BIG5Order[400] := $A8E7;
BIG5Order[401] := $A8E8;
BIG5Order[402] := $A8E9;
BIG5Order[403] := $2020;
BIG5Order[404] := $2020;
BIG5Order[405] := $2020;
BIG5Order[406] := $2020;
BIG5Order[407] := $2020;
BIG5Order[408] := $2020;
BIG5Order[409] := $2020;
BIG5Order[410] := $2020;
BIG5Order[411] := $2020;
BIG5Order[412] := $2020;
BIG5Order[413] := $2020;
BIG5Order[414] := $2020;
BIG5Order[415] := $2020;
回复人：hf(2000-8-17 12:55:00) 得0分
BIG5Order[416] := $2020;
BIG5Order[417] := $2020;
BIG5Order[418] := $2020;
BIG5Order[419] := $2020;
BIG5Order[420] := $2020;
BIG5Order[421] := $2020;
BIG5Order[422] := $2020;
BIG5Order[423] := $2020;
BIG5Order[424] := $2020;
BIG5Order[425] := $2020;
BIG5Order[426] := $2020;
BIG5Order[427] := $2020;
BIG5Order[428] := $2020;
BIG5Order[429] := $2020;
BIG5Order[430] := $2020;
BIG5Order[431] := $2020;
BIG5Order[432] := $2020;
BIG5Order[433] := $2020;
BIG5Order[434] := $2020;
BIG5Order[435] := $2020;
BIG5Order[436] := $2020;
BIG5Order[437] := $2020;
BIG5Order[438] := $2020;
BIG5Order[439] := $2020;
BIG5Order[440] := $2020;
BIG5Order[441] := $2020;
BIG5Order[442] := $2020;
BIG5Order[443] := $2020;
BIG5Order[444] := $2020;
BIG5Order[445] := $2020;
BIG5Order[446] := $2020;
BIG5Order[447] := $2020;
BIG5Order[448] := $2020;
BIG5Order[449] := $2020;
BIG5Order[450] := $2020;
BIG5Order[451] := $2020;
BIG5Order[452] := $2020;
BIG5Order[453] := $2020;
BIG5Order[454] := $2020;
BIG5Order[455] := $2020;
BIG5Order[456] := $2020;
BIG5Order[457] := $2020;
BIG5Order[458] := $2020;
BIG5Order[459] := $2020;
BIG5Order[460] := $2020;
BIG5Order[461] := $2020;
BIG5Order[462] := $2020;
BIG5Order[463] := $2020;
BIG5Order[464] := $2020;
BIG5Order[465] := $2020;
BIG5Order[466] := $2020;
BIG5Order[467] := $2020;
BIG5Order[468] := $2020;
BIG5Order[469] := $2020;
BIG5Order[470] := $2020;
BIG5Order[471] := $D2BB;
BIG5Order[472] := $D2D2;
BIG5Order[473] := $B6A1;
BIG5Order[474] := $C6DF;
BIG5Order[475] := $C4CB;
BIG5Order[476] := $BEC5;
BIG5Order[477] := $C1CB;
BIG5Order[478] := $B6FE;
BIG5Order[479] := $C8CB;
BIG5Order[480] := $B6F9;
BIG5Order[481] := $C8EB;
BIG5Order[482] := $B0CB;
BIG5Order[483] := $BCB8;
BIG5Order[484] := $B5B6;
BIG5Order[485] := $B5F3;
BIG5Order[486] := $C1A6;
BIG5Order[487] := $D8B0;
BIG5Order[488] := $CAAE;
BIG5Order[489] := $B2B7;
BIG5Order[490] := $D3D6;
BIG5Order[491] := $C8FD;
BIG5Order[492] := $CFC2;
BIG5Order[493] := $D5C9;
BIG5Order[494] := $C9CF;
BIG5Order[495] := $D1BE;
BIG5Order[496] := $CDE8;
BIG5Order[497] := $B7B2;
BIG5Order[498] := $BEC3;
BIG5Order[499] := $2020;
BIG5Order[500] := $D2B2;
BIG5Order[501] := $C6F2;
BIG5Order[502] := $D3DA;
BIG5Order[503] := $CDF6;
BIG5Order[504] := $D8A3;
BIG5Order[505] := $C8D0;
BIG5Order[506] := $C9D7;
BIG5Order[507] := $C7A7;
BIG5Order[508] := $B2E6;
BIG5Order[509] := $BFDA;
BIG5Order[510] := $CDC1;
BIG5Order[511] := $CABF;
BIG5Order[512] := $CFA6;
BIG5Order[513] := $B4F3;
BIG5Order[514] := $C5AE;
BIG5Order[515] := $D7D3;
BIG5Order[516] := $E6DD;
BIG5Order[517] := $E6DE;
BIG5Order[518] := $B4E7;
BIG5Order[519] := $D0A1;
BIG5Order[520] := $DECC;
BIG5Order[521] := $CAAC;
BIG5Order[522] := $C9BD;
BIG5Order[523] := $B4A8;
BIG5Order[524] := $B9A4;
BIG5Order[525] := $BCBA;
BIG5Order[526] := $D2D1;
BIG5Order[527] := $CBC8;
BIG5Order[528] := $BDED;
BIG5Order[529] := $B8C9;
BIG5Order[530] := $DEC3;
BIG5Order[531] := $DFAE;
BIG5Order[532] := $B9AD;
BIG5Order[533] := $B2C5;
BIG5Order[534] := $B3F3;
BIG5Order[535] := $D8A4;
BIG5Order[536] := $B2BB;
BIG5Order[537] := $D6D0;
BIG5Order[538] := $B7E1;
BIG5Order[539] := $B5A4;
BIG5Order[540] := $D6AE;
BIG5Order[541] := $D2FC;
BIG5Order[542] := $D3E8;
BIG5Order[543] := $D4C6;
BIG5Order[544] := $BEAE;
BIG5Order[545] := $BBA5;
BIG5Order[546] := $CEE5;
BIG5Order[547] := $BFBA;
BIG5Order[548] := $C8CA;
BIG5Order[549] := $CAB2;
BIG5Order[550] := $D8EA;
BIG5Order[551] := $C6CD;
BIG5Order[552] := $B3F0;
BIG5Order[553] := $C8D4;
BIG5Order[554] := $BDF1;
BIG5Order[555] := $BDE9;
BIG5Order[556] := $D8C6;
BIG5Order[557] := $D4AA;
BIG5Order[558] := $D4CA;
BIG5Order[559] := $C4DA;
BIG5Order[560] := $C1F9;
BIG5Order[561] := $D9E2;
BIG5Order[562] := $B9AB;
BIG5Order[563] := $C8DF;
BIG5Order[564] := $D0D7;
BIG5Order[565] := $B7D6;
BIG5Order[566] := $C7D0;
BIG5Order[567] := $D8D7;
BIG5Order[568] := $D4C8;
BIG5Order[569] := $B9B4;
BIG5Order[570] := $CEF0;
BIG5Order[571] := $BBAF;
BIG5Order[572] := $C6A5;
BIG5Order[573] := $CEE7;
BIG5Order[574] := $C9FD;
BIG5Order[575] := $D8A6;
BIG5Order[576] := $B1E5;
BIG5Order[577] := $B6F2;
BIG5Order[578] := $D3D1;
BIG5Order[579] := $BCB0;
BIG5Order[580] := $B7B4;
BIG5Order[581] := $C8C9;
BIG5Order[582] := $CCEC;
BIG5Order[583] := $B7F2;
BIG5Order[584] := $CCAB;
BIG5Order[585] := $D8B2;
BIG5Order[586] := $BFD7;
BIG5Order[587] := $C9D9;
BIG5Order[588] := $D3C8;
BIG5Order[589] := $B3DF;
BIG5Order[590] := $CDCD;
BIG5Order[591] := $B0CD;
BIG5Order[592] := $BBC3;
BIG5Order[593] := $D8A5;
BIG5Order[594] := $B5F5;
BIG5Order[595] := $D2FD;
BIG5Order[596] := $D0C4;
BIG5Order[597] := $B8EA;
BIG5Order[598] := $BBA7;
BIG5Order[599] := $CAD6;
BIG5Order[600] := $D4FA;
BIG5Order[601] := $D6A7;
BIG5Order[602] := $CEC4;
BIG5Order[603] := $B6B7;
BIG5Order[604] := $BDEF;
BIG5Order[605] := $B7BD;
BIG5Order[606] := $C8D5;
BIG5Order[607] := $D4BB;
BIG5Order[608] := $D4C2;
BIG5Order[609] := $C4BE;
BIG5Order[610] := $C7B7;
BIG5Order[611] := $D6B9;
BIG5Order[612] := $B4F5;
BIG5Order[613] := $CEE3;
BIG5Order[614] := $B1C8;
BIG5和GB互换
Gb2312 高字節範圍 0xa1 <= Gb2312.High <= 0xf7
Gb2312 低字節範圍 0xa1 <= Gb2312.Low <= 0xfe
Big5 高字節範圍 0xa1 <= Big5.High <= 0xf9
Big5 低字節範圍 0x40 <= Big5.Low <= 0xfe
可以看出，big5碼的低字節的範圍比gb2312要大，當字串中出現了低字節介於0x40,0xa0之間，則說明是big5碼！也就是說，給的漢字多一些才能準確判斷！
interface
function GBtoBIG5(value: string): string;
function BIG5toGB(value: string): string;
implementation
var
BIG5Order: array[0..14757] of Word;
GBOrder : array[0..8177] of Word;
function GBOffset(value: string): integer;
begin
if length(value) >= 2 then
Result := (Ord(value[1]) - 161) * 94 + (Ord(value[2]) - 161)
else
Result := -1;
end;
function BIG5Offset(value: string): integer;
begin
Result := -1;
if length(value) >= 2 then
begin
if (Ord(value[2]) >= 64) and (Ord(value[2]) <= 126) then
Result := (Ord(value[1]) - 161) * 157 + (Ord(value[2]) - 64);
if (Ord(value[2]) >= 161) and (Ord(value[2]) <= 254) then
Result := (Ord(value[1]) - 161) * 157 + 63 + (Ord(value[2]) - 161);
end
end;
function WordToString(value: Word): string;
begin
Result := Chr(Hi(value)) + Chr(Lo(Value));
end;
function isBIG5(value: string): Boolean;
begin
if (length(value)>=2) then
begin
if (value[1] < #161) then
Result := false
else
if ((value[2] >= #64) and (value[2] <= #126)) or ((value[2] >= #161) and (value[2] <= #254)) then
Result := true
else
Result := false
end
else
Result := false
end;
function isGB(value: string): Boolean;
begin
if (length(value)>=2) then
begin
if (value[1] <= #161) and (value[1] >= #247) then
Result := false
else
if (value[2] <= #161) and (value[2] >= #254) then
Result := false
else
Result := true
end
else
Result := true;
end;
function GBtoBIG5(value: string): string;
var
leng, idx : integer;
tmpStr : string[2];
Offset : integer;
output : string;
begin
output := '';
leng := length(value);
idx := 1;
while idx <= leng do
begin
tmpStr := value[idx]+ value[idx + 1];
if isGB(tmpStr) then
begin
offset:=GBOffset(tmpStr);
if (offset >= 0) and (offset <= 8177) then
begin
output := output + WordToString(GBOrder[offset]);
inc(idx);
end
else
output := output + value[idx] ;
end
else
output := output + value[idx] ;
inc(idx, 1);
end;
Result := output;
end;
function BIG5toGB(value: string): string;
var
leng, idx : integer;
tmpStr : string[2];
output : string;
offset : integer;
begin
output := '';
leng := length(value);
idx := 1;
while idx <= leng do
begin
tmpStr := value[idx]+ value[idx + 1];
if isBIG5(tmpStr) then
begin
offset:=BIG5Offset(tmpStr);
if (offset >= 0) and (offset <= 14757) then
begin
output := output + WordToString(BIG5Order[offset]);
inc(idx);
end
else
output := output + value[idx];
end
else
output := output + value[idx];
inc(idx);
end;
Result := output;
end;
initialization
BIG5Order[0] := $2020;
BIG5Order[1] := $A3AC;
BIG5Order[2] := $A1A2;
BIG5Order[3] := $A1A3;
BIG5Order[4] := $2020;
BIG5Order[5] := $A1A4;
BIG5Order[6] := $A3BB;
BIG5Order[7] := $A3BA;
BIG5Order[8] := $A3BF;
BIG5Order[9] := $A3A1;
BIG5Order[10] := $A1C3;
BIG5Order[11] := $A9A9;
BIG5Order[12] := $A1A7;
BIG5Order[13] := $A3AC;
BIG5Order[14] := $2020;
BIG5Order[15] := $A3AE;
BIG5Order[16] := $2020;
BIG5Order[17] := $A3BB;
BIG5Order[18] := $A3BA;
BIG5Order[19] := $A3BF;
BIG5Order[20] := $2020;
BIG5Order[21] := $A9A7;
BIG5Order[22] := $A9A5;
BIG5Order[23] := $A9A6;
BIG5Order[24] := $A9A4;
BIG5Order[25] := $2020;
BIG5Order[26] := $A3DF;
BIG5Order[27] := $2020;
BIG5Order[28] := $2020;
BIG5Order[29] := $A3A8;
BIG5Order[30] := $A3A9;
BIG5Order[31] := $A1D0;
BIG5Order[32] := $2020;
BIG5Order[33] := $A3FB;
BIG5Order[34] := $A3FD;
BIG5Order[35] := $2020;
BIG5Order[36] := $2020;
BIG5Order[37] := $A1B1;
BIG5Order[38] := $A1B2;
BIG5Order[39] := $2020;
BIG5Order[40] := $2020;
BIG5Order[41] := $A1BE;
BIG5Order[42] := $A1BF;
BIG5Order[43] := $2020;
BIG5Order[44] := $2020;
BIG5Order[45] := $A1B6;
BIG5Order[46] := $A1B7;
BIG5Order[47] := $A1C4;
BIG5Order[48] := $A1C5;
BIG5Order[49] := $A1B4;
BIG5Order[50] := $A1B5;
BIG5Order[51] := $2020;
BIG5Order[52] := $A1A6;
BIG5Order[53] := $A1B8;
BIG5Order[54] := $A1B9;
BIG5Order[55] := $2020;
BIG5Order[56] := $2020;
BIG5Order[57] := $A1BA;
BIG5Order[58] := $A1BB;
BIG5Order[59] := $2020;
BIG5Order[60] := $2020;
BIG5Order[61] := $A3A8;
BIG5Order[62] := $A3A9;
BIG5Order[63] := $2020;
BIG5Order[64] := $2020;
BIG5Order[65] := $A1B1;
BIG5Order[66] := $A1B2;
BIG5Order[67] := $A1AE;
BIG5Order[68] := $A3A7;
BIG5Order[69] := $A1B0;
BIG5Order[70] := $A1B1;
BIG5Order[71] := $2020;
BIG5Order[72] := $A3A2;
BIG5Order[73] := $A3E0;
BIG5Order[74] := $2020;
BIG5Order[75] := $A3A3;
BIG5Order[76] := $A3A6;
BIG5Order[77] := $A3AA;
BIG5Order[78] := $A1F9;
BIG5Order[79] := $A1EC;
BIG5Order[80] := $2020;
BIG5Order[81] := $A1F0;
BIG5Order[82] := $A1F1;
BIG5Order[83] := $A1F7;
BIG5Order[84] := $A1F8;
BIG5Order[85] := $A1F2;
BIG5Order[86] := $A1EE;
BIG5Order[87] := $A1EF;
BIG5Order[88] := $A1F3;
BIG5Order[89] := $A1F4;
BIG5Order[90] := $A1F5;
BIG5Order[91] := $A1F6;
BIG5Order[92] := $2020;
BIG5Order[93] := $2020;
BIG5Order[94] := $2020;
BIG5Order[95] := $2020;
BIG5Order[96] := $A1A5;
BIG5Order[97] := $2020;
BIG5Order[98] := $2020;
BIG5Order[99] := $2020;
BIG5Order[100] := $2020;
BIG5Order[101] := $2020;
BIG5Order[102] := $2020;
BIG5Order[103] := $2020;
BIG5Order[104] := $2020;
BIG5Order[105] := $2020;
BIG5Order[106] := $2020;
BIG5Order[107] := $2020;
BIG5Order[108] := $2020;
BIG5Order[109] := $A3AB;
BIG5Order[110] := $2020;
BIG5Order[111] := $A1C1;
BIG5Order[112] := $A1C2;
BIG5Order[113] := $A1C0;
BIG5Order[114] := $2020;
BIG5Order[115] := $A3BC;
BIG5Order[116] := $A3BE;
BIG5Order[117] := $A3BD;
BIG5Order[118] := $A1DC;
BIG5Order[119] := $A1DD;
BIG5Order[120] := $A1D9;
BIG5Order[121] := $A1DE;
BIG5Order[122] := $2020;
BIG5Order[123] := $A1D4;
BIG5Order[124] := $2020;
BIG5Order[125] := $2020;
BIG5Order[126] := $2020;
BIG5Order[127] := $2020;
BIG5Order[128] := $2020;
BIG5Order[129] := $A1AB;
BIG5Order[130] := $A1C9;
BIG5Order[131] := $A1C8;
BIG5Order[132] := $2020;
BIG5Order[133] := $A1CF;
BIG5Order[134] := $2020;
BIG5Order[135] := $2020;
BIG5Order[136] := $2020;
BIG5Order[137] := $2020;
BIG5Order[138] := $A1D2;
BIG5Order[139] := $A1D3;
BIG5Order[140] := $A1DF;
BIG5Order[141] := $A1E0;
BIG5Order[142] := $A1E2;
BIG5Order[143] := $A1E1;
BIG5Order[144] := $2020;
BIG5Order[145] := $A1D1;
BIG5Order[146] := $A1FC;
BIG5Order[147] := $A1FD;
BIG5Order[148] := $A1FB;
BIG5Order[149] := $A1FA;
BIG5Order[150] := $2020;
回复人：hf(2000-8-17 12:54:00) 得0分
BIG5Order[151] := $2020;
BIG5Order[152] := $2020;
BIG5Order[153] := $2020;
BIG5Order[154] := $A1AC;
BIG5Order[155] := $2020;
BIG5Order[156] := $A3AF;
BIG5Order[157] := $A3DC;
BIG5Order[158] := $2020;
BIG5Order[159] := $2020;
BIG5Order[160] := $A1E7;
BIG5Order[161] := $A3A4;
BIG5Order[162] := $2020;
BIG5Order[163] := $A1E9;
BIG5Order[164] := $A1EA;
BIG5Order[165] := $A3A5;
BIG5Order[166] := $2020;
BIG5Order[167] := $A1E6;
BIG5Order[168] := $2020;
BIG5Order[169] := $2020;
BIG5Order[170] := $2020;
BIG5Order[171] := $A3C0;
BIG5Order[172] := $2020;
BIG5Order[173] := $2020;
BIG5Order[174] := $2020;
BIG5Order[175] := $2020;
BIG5Order[176] := $2020;
BIG5Order[177] := $2020;
BIG5Order[178] := $2020;
BIG5Order[179] := $2020;
BIG5Order[180] := $2020;
BIG5Order[181] := $A1E3;
BIG5Order[182] := $2020;
BIG5Order[183] := $2020;
BIG5Order[184] := $2020;
BIG5Order[185] := $2020;
BIG5Order[186] := $2020;
BIG5Order[187] := $2020;
BIG5Order[188] := $2020;
BIG5Order[189] := $2020;
BIG5Order[190] := $2020;
BIG5Order[191] := $2020;
BIG5Order[192] := $2020;
BIG5Order[193] := $2020;
BIG5Order[194] := $2020;
BIG5Order[195] := $2020;
BIG5Order[196] := $2020;
BIG5Order[197] := $2020;
BIG5Order[198] := $2020;
BIG5Order[199] := $2020;
BIG5Order[200] := $2020;
BIG5Order[201] := $2020;
BIG5Order[202] := $2020;
BIG5Order[203] := $2020;
BIG5Order[204] := $2020;
BIG5Order[205] := $2020;
BIG5Order[206] := $A9EF;
BIG5Order[207] := $A9DF;
BIG5Order[208] := $A9D7;
BIG5Order[209] := $A9CF;
BIG5Order[210] := $A9C7;
BIG5Order[211] := $A3FE;
BIG5Order[212] := $2020;
BIG5Order[213] := $2020;
BIG5Order[214] := $2020;
BIG5Order[215] := $A9B3;
BIG5Order[216] := $A9B7;
BIG5Order[217] := $A9BB;
BIG5Order[218] := $A9BF;
BIG5Order[219] := $2020;
BIG5Order[220] := $2020;
BIG5Order[221] := $2020;
BIG5Order[222] := $2020;
BIG5Order[223] := $2020;
BIG5Order[224] := $2020;
BIG5Order[225] := $2020;
BIG5Order[226] := $2020;
BIG5Order[227] := $2020;
BIG5Order[228] := $2020;
BIG5Order[229] := $2020;
BIG5Order[230] := $2020;
BIG5Order[231] := $2020;
BIG5Order[232] := $2020;
BIG5Order[233] := $2020;
BIG5Order[234] := $A3B0;
BIG5Order[235] := $A3B1;
BIG5Order[236] := $A3B2;
BIG5Order[237] := $A3B3;
BIG5Order[238] := $A3B4;
BIG5Order[239] := $A3B5;
BIG5Order[240] := $A3B6;
BIG5Order[241] := $A3B7;
BIG5Order[242] := $A3B8;
BIG5Order[243] := $A3B9;
BIG5Order[244] := $A2F1;
BIG5Order[245] := $A2F2;
BIG5Order[246] := $A2F3;
BIG5Order[247] := $A2F4;
BIG5Order[248] := $A2F5;
BIG5Order[249] := $A2F6;
BIG5Order[250] := $A2F7;
BIG5Order[251] := $A2F8;
BIG5Order[252] := $A2F9;
BIG5Order[253] := $A2FA;
BIG5Order[254] := $2020;
BIG5Order[255] := $2020;
BIG5Order[256] := $2020;
BIG5Order[257] := $2020;
BIG5Order[258] := $2020;
BIG5Order[259] := $2020;
BIG5Order[260] := $2020;
BIG5Order[261] := $2020;
BIG5Order[262] := $2020;
BIG5Order[263] := $2020;
BIG5Order[264] := $2020;
BIG5Order[265] := $2020;
BIG5Order[266] := $A3C1;
BIG5Order[267] := $A3C2;
BIG5Order[268] := $A3C3;
BIG5Order[269] := $A3C4;
BIG5Order[270] := $A3C5;
BIG5Order[271] := $A3C6;
BIG5Order[272] := $A3C7;
BIG5Order[273] := $A3C8;
BIG5Order[274] := $A3C9;
BIG5Order[275] := $A3CA;
BIG5Order[276] := $A3CB;
BIG5Order[277] := $A3CC;
BIG5Order[278] := $A3CD;
BIG5Order[279] := $A3CE;
BIG5Order[280] := $A3CF;
BIG5Order[281] := $A3D0;
BIG5Order[282] := $A3D1;
BIG5Order[283] := $A3D2;
BIG5Order[284] := $A3D3;
BIG5Order[285] := $A3D4;
BIG5Order[286] := $A3D5;
BIG5Order[287] := $A3D6;
BIG5Order[288] := $A3D7;
BIG5Order[289] := $A3D8;
BIG5Order[290] := $A3D9;
BIG5Order[291] := $A3DA;
BIG5Order[292] := $A3E1;
BIG5Order[293] := $A3E2;
BIG5Order[294] := $A3E3;
BIG5Order[295] := $A3E4;
BIG5Order[296] := $A3E5;
BIG5Order[297] := $A3E6;
BIG5Order[298] := $A3E7;
BIG5Order[299] := $A3E8;
BIG5Order[300] := $A3E9;
BIG5Order[301] := $A3EA;
BIG5Order[302] := $A3EB;
BIG5Order[303] := $A3EC;
BIG5Order[304] := $A3ED;
BIG5Order[305] := $A3EE;
BIG5Order[306] := $A3EF;
BIG5Order[307] := $A3F0;
BIG5Order[308] := $A3F1;
BIG5Order[309] := $A3F2;
BIG5Order[310] := $A3F3;
BIG5Order[311] := $A3F4;
BIG5Order[312] := $A3F5;
BIG5Order[313] := $A3F6;
BIG5Order[314] := $A3F7;
BIG5Order[315] := $A3F8;
BIG5Order[316] := $A3F9;
BIG5Order[317] := $A3FA;
BIG5Order[318] := $A6A1;
BIG5Order[319] := $A6A2;
BIG5Order[320] := $A6A3;
BIG5Order[321] := $A6A4;
BIG5Order[322] := $A6A5;
BIG5Order[323] := $A6A6;
BIG5Order[324] := $A6A7;
BIG5Order[325] := $A6A8;
BIG5Order[326] := $A6A9;
BIG5Order[327] := $A6AA;
BIG5Order[328] := $A6AB;
BIG5Order[329] := $A6AC;
BIG5Order[330] := $A6AD;
BIG5Order[331] := $A6AE;
BIG5Order[332] := $A6AF;
BIG5Order[333] := $A6B0;
BIG5Order[334] := $A6B1;
BIG5Order[335] := $A6B2;
BIG5Order[336] := $A6B3;
BIG5Order[337] := $A6B4;
BIG5Order[338] := $A6B5;
BIG5Order[339] := $A6B6;
BIG5Order[340] := $A6B7;
BIG5Order[341] := $A6B8;
BIG5Order[342] := $A6C1;
BIG5Order[343] := $A6C2;
BIG5Order[344] := $A6C3;
BIG5Order[345] := $A6C4;
BIG5Order[346] := $A6C5;
BIG5Order[347] := $A6C6;
BIG5Order[348] := $A6C7;
BIG5Order[349] := $A6C8;
BIG5Order[350] := $A6C9;
BIG5Order[351] := $A6CA;
BIG5Order[352] := $A6CB;
BIG5Order[353] := $A6CC;
BIG5Order[354] := $A6CD;
BIG5Order[355] := $A6CE;
BIG5Order[356] := $A6CF;
BIG5Order[357] := $A6D0;
BIG5Order[358] := $A6D1;
BIG5Order[359] := $A6D2;
BIG5Order[360] := $A6D3;
BIG5Order[361] := $A6D4;
BIG5Order[362] := $A6D5;
BIG5Order[363] := $A6D6;
BIG5Order[364] := $A6D7;
BIG5Order[365] := $A6D8;
BIG5Order[366] := $A8C5;
BIG5Order[367] := $A8C6;
BIG5Order[368] := $A8C7;
BIG5Order[369] := $A8C8;
BIG5Order[370] := $A8C9;
BIG5Order[371] := $A8CA;
BIG5Order[372] := $A8CB;
BIG5Order[373] := $A8CC;
BIG5Order[374] := $A8CD;
BIG5Order[375] := $A8CE;
BIG5Order[376] := $A8CF;
BIG5Order[377] := $A8D0;
BIG5Order[378] := $A8D1;
BIG5Order[379] := $A8D2;
BIG5Order[380] := $A8D3;
BIG5Order[381] := $A8D4;
BIG5Order[382] := $A8D5;
BIG5Order[383] := $A8D6;
BIG5Order[384] := $A8D7;
BIG5Order[385] := $A8D8;
BIG5Order[386] := $A8D9;
BIG5Order[387] := $A8DA;
BIG5Order[388] := $A8DB;
BIG5Order[389] := $A8DC;
BIG5Order[390] := $A8DD;
BIG5Order[391] := $A8DE;
BIG5Order[392] := $A8DF;
BIG5Order[393] := $A8E0;
BIG5Order[394] := $A8E1;
BIG5Order[395] := $A8E2;
BIG5Order[396] := $A8E3;
BIG5Order[397] := $A8E4;
BIG5Order[398] := $A8E5;
BIG5Order[399] := $A8E6;
BIG5Order[400] := $A8E7;
BIG5Order[401] := $A8E8;
BIG5Order[402] := $A8E9;
BIG5Order[403] := $2020;
BIG5Order[404] := $2020;
BIG5Order[405] := $2020;
BIG5Order[406] := $2020;
BIG5Order[407] := $2020;
BIG5Order[408] := $2020;
BIG5Order[409] := $2020;
BIG5Order[410] := $2020;
BIG5Order[411] := $2020;
BIG5Order[412] := $2020;
BIG5Order[413] := $2020;
BIG5Order[414] := $2020;
BIG5Order[415] := $2020;
回复人：hf(2000-8-17 12:55:00) 得0分
BIG5Order[416] := $2020;
BIG5Order[417] := $2020;
BIG5Order[418] := $2020;
BIG5Order[419] := $2020;
BIG5Order[420] := $2020;
BIG5Order[421] := $2020;
BIG5Order[422] := $2020;
BIG5Order[423] := $2020;
BIG5Order[424] := $2020;
BIG5Order[425] := $2020;
BIG5Order[426] := $2020;
BIG5Order[427] := $2020;
BIG5Order[428] := $2020;
BIG5Order[429] := $2020;
BIG5Order[430] := $2020;
BIG5Order[431] := $2020;
BIG5Order[432] := $2020;
BIG5Order[433] := $2020;
BIG5Order[434] := $2020;
BIG5Order[435] := $2020;
BIG5Order[436] := $2020;
BIG5Order[437] := $2020;
BIG5Order[438] := $2020;
BIG5Order[439] := $2020;
BIG5Order[440] := $2020;
BIG5Order[441] := $2020;
BIG5Order[442] := $2020;
BIG5Order[443] := $2020;
BIG5Order[444] := $2020;
BIG5Order[445] := $2020;
BIG5Order[446] := $2020;
BIG5Order[447] := $2020;
BIG5Order[448] := $2020;
BIG5Order[449] := $2020;
BIG5Order[450] := $2020;
BIG5Order[451] := $2020;
BIG5Order[452] := $2020;
BIG5Order[453] := $2020;
BIG5Order[454] := $2020;
BIG5Order[455] := $2020;
BIG5Order[456] := $2020;
BIG5Order[457] := $2020;
BIG5Order[458] := $2020;
BIG5Order[459] := $2020;
BIG5Order[460] := $2020;
BIG5Order[461] := $2020;
BIG5Order[462] := $2020;
BIG5Order[463] := $2020;
BIG5Order[464] := $2020;
BIG5Order[465] := $2020;
BIG5Order[466] := $2020;
BIG5Order[467] := $2020;
BIG5Order[468] := $2020;
BIG5Order[469] := $2020;
BIG5Order[470] := $2020;
BIG5Order[471] := $D2BB;
BIG5Order[472] := $D2D2;
BIG5Order[473] := $B6A1;
BIG5Order[474] := $C6DF;
BIG5Order[475] := $C4CB;
BIG5Order[476] := $BEC5;
BIG5Order[477] := $C1CB;
BIG5Order[478] := $B6FE;
BIG5Order[479] := $C8CB;
BIG5Order[480] := $B6F9;
BIG5Order[481] := $C8EB;
BIG5Order[482] := $B0CB;
BIG5Order[483] := $BCB8;
BIG5Order[484] := $B5B6;
BIG5Order[485] := $B5F3;
BIG5Order[486] := $C1A6;
BIG5Order[487] := $D8B0;
BIG5Order[488] := $CAAE;
BIG5Order[489] := $B2B7;
BIG5Order[490] := $D3D6;
BIG5Order[491] := $C8FD;
BIG5Order[492] := $CFC2;
BIG5Order[493] := $D5C9;
BIG5Order[494] := $C9CF;
BIG5Order[495] := $D1BE;
BIG5Order[496] := $CDE8;
BIG5Order[497] := $B7B2;
BIG5Order[498] := $BEC3;
BIG5Order[499] := $2020;
BIG5Order[500] := $D2B2;
BIG5Order[501] := $C6F2;
BIG5Order[502] := $D3DA;
BIG5Order[503] := $CDF6;
BIG5Order[504] := $D8A3;
BIG5Order[505] := $C8D0;
BIG5Order[506] := $C9D7;
BIG5Order[507] := $C7A7;
BIG5Order[508] := $B2E6;
BIG5Order[509] := $BFDA;
BIG5Order[510] := $CDC1;
BIG5Order[511] := $CABF;
BIG5Order[512] := $CFA6;
BIG5Order[513] := $B4F3;
BIG5Order[514] := $C5AE;
BIG5Order[515] := $D7D3;
BIG5Order[516] := $E6DD;
BIG5Order[517] := $E6DE;
BIG5Order[518] := $B4E7;
BIG5Order[519] := $D0A1;
BIG5Order[520] := $DECC;
BIG5Order[521] := $CAAC;
BIG5Order[522] := $C9BD;
BIG5Order[523] := $B4A8;
BIG5Order[524] := $B9A4;
BIG5Order[525] := $BCBA;
BIG5Order[526] := $D2D1;
BIG5Order[527] := $CBC8;
BIG5Order[528] := $BDED;
BIG5Order[529] := $B8C9;
BIG5Order[530] := $DEC3;
BIG5Order[531] := $DFAE;
BIG5Order[532] := $B9AD;
BIG5Order[533] := $B2C5;
BIG5Order[534] := $B3F3;
BIG5Order[535] := $D8A4;
BIG5Order[536] := $B2BB;
BIG5Order[537] := $D6D0;
BIG5Order[538] := $B7E1;
BIG5Order[539] := $B5A4;
BIG5Order[540] := $D6AE;
BIG5Order[541] := $D2FC;
BIG5Order[542] := $D3E8;
BIG5Order[543] := $D4C6;
BIG5Order[544] := $BEAE;
BIG5Order[545] := $BBA5;
BIG5Order[546] := $CEE5;
BIG5Order[547] := $BFBA;
BIG5Order[548] := $C8CA;
BIG5Order[549] := $CAB2;
BIG5Order[550] := $D8EA;
BIG5Order[551] := $C6CD;
BIG5Order[552] := $B3F0;
BIG5Order[553] := $C8D4;
BIG5Order[554] := $BDF1;
BIG5Order[555] := $BDE9;
BIG5Order[556] := $D8C6;
BIG5Order[557] := $D4AA;
BIG5Order[558] := $D4CA;
BIG5Order[559] := $C4DA;
BIG5Order[560] := $C1F9;
BIG5Order[561] := $D9E2;
BIG5Order[562] := $B9AB;
BIG5Order[563] := $C8DF;
BIG5Order[564] := $D0D7;
BIG5Order[565] := $B7D6;
BIG5Order[566] := $C7D0;
BIG5Order[567] := $D8D7;
BIG5Order[568] := $D4C8;
BIG5Order[569] := $B9B4;
BIG5Order[570] := $CEF0;
BIG5Order[571] := $BBAF;
BIG5Order[572] := $C6A5;
BIG5Order[573] := $CEE7;
BIG5Order[574] := $C9FD;
BIG5Order[575] := $D8A6;
BIG5Order[576] := $B1E5;
BIG5Order[577] := $B6F2;
BIG5Order[578] := $D3D1;
BIG5Order[579] := $BCB0;
BIG5Order[580] := $B7B4;
BIG5Order[581] := $C8C9;
BIG5Order[582] := $CCEC;
BIG5Order[583] := $B7F2;
BIG5Order[584] := $CCAB;
BIG5Order[585] := $D8B2;
BIG5Order[586] := $BFD7;
BIG5Order[587] := $C9D9;
BIG5Order[588] := $D3C8;
BIG5Order[589] := $B3DF;
BIG5Order[590] := $CDCD;
BIG5Order[591] := $B0CD;
BIG5Order[592] := $BBC3;
BIG5Order[593] := $D8A5;
BIG5Order[594] := $B5F5;
BIG5Order[595] := $D2FD;
BIG5Order[596] := $D0C4;
BIG5Order[597] := $B8EA;
BIG5Order[598] := $BBA7;
BIG5Order[599] := $CAD6;
BIG5Order[600] := $D4FA;
BIG5Order[601] := $D6A7;
BIG5Order[602] := $CEC4;
BIG5Order[603] := $B6B7;
BIG5Order[604] := $BDEF;
BIG5Order[605] := $B7BD;
BIG5Order[606] := $C8D5;
BIG5Order[607] := $D4BB;
BIG5Order[608] := $D4C2;
BIG5Order[609] := $C4BE;
BIG5Order[610] := $C7B7;
BIG5Order[611] := $D6B9;
BIG5Order[612] := $B4F5;
BIG5Order[613] := $CEE3;
BIG5Order[614] := $B1C8;
S
savetime
Unregistered / Unconfirmed
GUEST, unregistred user!
function Big52Utf8(const S: string): UTF8String;
var
Len: Integer;
WS: WideString;
begin
Len := Length(S);
if Len = 0 then
Result := ''
else begin
SetLength(WS, Len);
Len := MultiByteToWideChar(950, 0, PChar(S), Len, PWideChar(WS), Len);
SetLength(WS, Len);
Result := UTF8Encode(WS);
end;
end;
var
Len: Integer;
WS: WideString;
begin
Len := Length(S);
if Len = 0 then
Result := ''
else begin
SetLength(WS, Len);
Len := MultiByteToWideChar(950, 0, PChar(S), Len, PWideChar(WS), Len);
SetLength(WS, Len);
Result := UTF8Encode(WS);
end;
end;
J
juziling
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。