Delphi unicode 数字转换成中文显示

function ProcessFormSource(mSource, mDest: TStrings): Boolean;
var
  I, J, K: Integer;
  S: string;
  vTempStr, vLeftStr: string;
  vWideByte: Integer;
begin
  Result := False;
  if not (Assigned(mSource) and Assigned(mDest)) then Exit;
  mDest.Clear;
  for I := 0 to mSource.Count - 1 do begin
    S := mSource[I];
    if Pos("#", S) > 0 then begin
      vTempStr := "";
      vLeftStr := "";
      K := 0;
      for J := 1 to Length(S) do
        case K of
          0: begin //空区
            case S[J] of
              """": begin
                K := 1;
                vLeftStr := vLeftStr + S[J];
              end;
              "#": K := 2;
            else vLeftStr := vLeftStr + S[J];
            end;
          end;
          1: begin //""""区
            if S[J] = """" then K := 0;
            vLeftStr := vLeftStr + S[J];
          end;
          2: begin //#区
            if S[J] in ["0".."9", "$", "a".."f", "A".."F"] then
              vTempStr := vTempStr + S[J]
            else begin
              K := Pos(S[J], """#");
              vWideByte := StrToIntDef(vTempStr, 0);
              if vWideByte <= 256 then begin
                vLeftStr := vLeftStr + "#" + vTempStr;
                if S[J] = """" then vLeftStr := vLeftStr + S[J];
              end else begin
                if Copy(vLeftStr, Length(vLeftStr), 1) = """" then
                  Insert(WideChar(vWideByte), vLeftStr, Length(vLeftStr))
                else vLeftStr := vLeftStr + QuotedStr(WideChar(vWideByte));
                if S[J] = """" then Delete(vLeftStr, Length(vLeftStr), 1);
              end;
              vTempStr := "";
            end;
          end;
        end;
        if K = 2 then begin
          vWideByte := StrToIntDef(vTempStr, 0);
          if vWideByte <= 256 then
            vLeftStr := vLeftStr + "#" + vTempStr
          else begin
            if Copy(vLeftStr, Length(vLeftStr), 1) = """" then
              Insert(WideChar(vWideByte), vLeftStr, Length(vLeftStr))
            else vLeftStr := vLeftStr + QuotedStr(WideChar(vWideByte));
          end;
        end;
        S := vLeftStr;
    end;
    mDest.Add(S);
  end;
  Result := True;

end; 

转载网址:http://bbs.csdn.net/topics/20034114