Delphi 下如何取得汉字UNICODE扩展编码？ Delphi获取汉字的unicode编码[delphi]view plaincopyDelphi7varn1：Word；W：WideString；beginW：='万'；n1：=Word(WideChar(W[1]))；ShowMessageFmt('%s：%d'，[W，n1])；Delphi2010[delphi]view plaincopyvarn1，n2，n3，n4，n5：Word；beginn1：=Ord('万')；n2：=Cardinal('万')；n3：=Integer('万')；n4：=Word('万')；n5：=LoWord('万')；ShowMessageFmt('%s：%d，%d，%d，%d，%d'，[#19975，n1，n2，n3，n4，n5])；{万：19975，19975，19975，19975，19975}end；
哪位好心人帮帮忙啊。Delphi 中怎么求Shift-JIS的编码的具体值啊，憋屈好久了，都没搞定。。实在太郁闷了 哪位好心人帮帮忙啊。Delphi 中怎么求Shift-JIS的编码的具体值啊，憋屈好久了，都没搞定。实在太郁闷了 比如输入一个汉字 能求出 Shift-JIS的编码具体值。。
delphi 如何从URL获取文件名 第一步、如果有？以后的内容第二步、删除最后一个/之前的内容第三步、把剩下的内容按照最后一个.分成两部分，前面是文件名，后面的扩展名
