如何判断.TXT或。HTML文件是BIG5码(88分)

读文件(读一部分即可判断),看字符内吗:

看一下下面的代码就知道:
GB码:两个字符都大于$A0(160)
Big5码:一个字符都大于A0(160),二个字符都大于$40(64),


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;

126是什么东东？

接受答案了.