[原创]Delphi中ScriptControl的高级应用（二）[6]

        out += string.fromcharcode(0x80 | ((c >>  0) & 0x3f));

    }

    }

    return out;

}

function utf8to16(str) {

    var out, i, len, c;

    var char2, char3;

    out = "";

    len = str.length;

    i = 0;

    while(i < len) {

    c = str.charcodeat(i++);

    switch(c >> 4)

    {

      case 0: case 1: case 2: case 3: case 4: case 5: case 6: case 7:

        // 0xxxxxxx

        out += str.charat(i-1);

        break;

      case 12: case 13: