在看邮件时繁体的字的总是显示是乱码，怎么样才能显示简体中文？？

Question

在看邮件时繁体的字的总是显示是乱码，怎么样才能显示简体中文？？
能不能详细点。谁完全解决这个问题，我100分全给他！！

Answer 1

给你一个繁体和简体编码互换的单元：
unit gb2big5;interface
  function GBtoBIG5(value: string): string;
  function BIG5toGB(value: string): string;implementationvar 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
  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
  else
     Result:=-1;
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;

Answer 2

FOXMAIL（对收到的邮件点右键）/OUTLOOK自己都能转换啊，还需要什么工具

Answer 3

如果你是在網站上的在線郵箱一般都有支持語言轉換.
如果是outlook的話你只要點擊檢視中的編碼選擇簡體就可以轉成簡體了.
使用方法和IE一樣.