摘要: var w: WideString; i: Integer; s: string; List: TStringList; begin List := TStringList.Create; for i := $4e00 to $9fa5 do begin s := #36 + IntToHex(i,4); {#36 是 $ 字符} w := Wide... 阅读全文
posted @ 2007-12-15 22:09 万一 阅读(7816) 评论(2) 推荐(0) 编辑
摘要: JavaScript版本测试 阅读全文
posted @ 2007-12-15 10:05 万一 阅读(1792) 评论(0) 推荐(0) 编辑