可行的 简体转换繁体 程序 这样吧,你把email六下,我发原代马给你 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit JianTiFanTiUnit;interfaceuses Classes;function JianTiToFanTi(mJianTi: WideString): WideString;function FanTiToJianTi(mFanTi: WideString): WideString;implementationconst cJianTiFanTi: WideString ='万=萬'#13#10'与=與'#13#10'丑=醜'#13#10'专=專'#13#10'业=業'#13#10 +'丛=叢'#13#10'东=東'#13#10'丝=絲'#13#10'丢=丟'#13#10'两=兩'#13#10 +'严=嚴'#13#10'丧=喪'#13#10'个=(個,箇)'#13#10'丰=豐'#13#10'临=臨'#13#10 +'丸=汍'#13#10'为=為'#13#10'丽=麗'#13#10'举=舉'#13#10'乃=迺'#13#10 +'义=義'#13#10'乌=烏'#13#10'乐=樂'#13#10'乔=喬'#13#10'习=習'#13#10 +'乡=鄉'#13#10'书=書'#13#10'买=買'#13#10'乱=亂'#13#10'了=(暸,瞭)'#13#10 +'争=爭'#13#10'亏=虧'#13#10'云=雲'#13#10'亘=亙'#13#10'亚=亞'#13#10 +'产=產'#13#10'亩=畝'#13#10'亲=親'#13#10'亵=褻'#13#10'亿=億'#13#10 +'仂=扐'#13#10'仄=庂'#13#10'仅=僅'#13#10'仆=僕'#13#10'从=從'#13#10 +'仑=(侖,崙)'#13#10'仓=倉'#13#10'仪=儀'#13#10'们=們'#13#10'价=價'#13#10 +'仿=倣'#13#10'众=眾'#13#10'优=優'#13#10'会=會'#13#10'伛=傴'#13#10 +'伞=傘'#13#10'伟=偉'#13#10'传=傳'#13#10'伤=傷'#13#10'伥=倀'#13#10 +'伦=倫'#13#10'伧=傖'#13#10'伪=偽'#13#10'伫=佇'#13#10'佑=祐'#13#10 +'体=體'#13#10'余=餘'#13#10'佛=彿'#13#10'你=(你,妳)'#13#10'佣=傭'#13#10 +'佥=僉'#13#10'佩=珮'#13#10'侄=姪'#13#10'侠=俠'#13#10'侣=侶'#13#10 +'侥=僥'#13#10'侦=偵'#13#10'侧=側'#13#10'侨=僑'#13#10'侩=儈'#13#10 +'侪=儕'#13#10'侬=儂'#13#10'俣=俁'#13#10'俦=儔'#13#10'俨=儼'#13#10 +'俩=倆'#13#10'俪=儷'#13#10'俭=儉'#13#10'修=脩'#13#10'债=債'#13#10 +'倾=傾'#13#10'偬=傯'#13#10'偻=僂'#13#10'偾=僨'#13#10'偿=償'#13#10 +'傥=儻'#13#10'傧=儐'#13#10'储=儲'#13#10'傩=儺'#13#10'儿=兒'#13#10 +'克=剋'#13#10'兑=兌'#13#10'兖=兗'#13#10'党=黨'#13#10'兰=蘭'#13#10 +'关=關'#13#10'兴=興'#13#10'兹=(玆,茲)'#13#10'养=養'#13#10'兽=獸'#13#10 +'冁=囅'#13#10'内=內'#13#10'冈=岡'#13#10'册=冊'#13#10'写=寫'#13#10 +'军=軍'#13#10'农=農'#13#10'冬=鼕'#13#10'冯=馮'#13#10'冲=(沖,衝)'#13#10 +'决=決'#13#10'况=況'#13#10'冻=凍'#13#10'净=(凈,淨)'#13#10'凄=(悽,淒)'#13#10 +'准=準'#13#10'凉=涼'#13#10'减=減'#13#10'凑=湊'#13#10'凛=凜'#13#10 +'几=幾'#13#10'凤=鳳'#13#10'凫=鳧'#13#10'凭=憑'#13#10'凯=凱'#13#10 +'凶=兇'#13#10'出=齣'#13#10'击=擊'#13#10'凿=鑿'#13#10'刍=芻'#13#10 +'划=劃'#13#10'刘=劉'#13#10'则=則'#13#10'刚=剛'#13#10'创=創'#13#10 +'删=刪'#13#10'刨=(鉋,鑤)'#13#10'别=(別,彆)'#13#10'刭=剄'#13#10'刮=颳'#13#10 +'制=製'#13#10'刹=剎'#13#10'刽=劊'#13#10'刿=劌'#13#10'剀=剴'#13#10 +'剂=劑'#13#10'剐=剮'#13#10'剑=劍'#13#10'剥=剝'#13#10'剧=劇'#13#10 +'剿=勦'#13#10'劝=勸'#13#10'办=辦'#13#10'务=務'#13#10'劢=勱'#13#10 +'动=動'#13#10'励=勵'#13#10'劲=勁'#13#10'劳=勞'#13#10'势=勢'#13#10 +'勋=勛'#13#10'勖=勗'#13#10'匀=勻'#13#10'匡=劻'#13#10'匦=匭'#13#10 +'匮=匱'#13#10'区=區'#13#10'医=醫'#13#10'千=韆'#13#10'华=華'#13#10 +'协=協'#13#10'单=單'#13#10'卖=賣'#13#10'卜=蔔'#13#10'占=佔'#13#10 +'卢=盧'#13#10'卤=(滷,鹵)'#13#10'卧=臥'#13#10'卫=衛'#13#10'却=卻'#13#10 +'卷=捲'#13#10'卺=巹'#13#10'厂=廠'#13#10'厄=阨'#13#10'厅=廳'#13#10 +'历=(曆,歷)'#13#10'厉=厲'#13#10'压=壓'#13#10'厌=厭'#13#10'厍=厙'#13#10 +'厕=廁'#13#10'厘=釐'#13#10'厢=廂'#13#10'厣=厴'#13#10'厦=廈'#13#10 +'厨=廚'#13#10'厩=廄'#13#10'厮=廝'#13#10'县=縣'#13#10'参=參'#13#10 +'叉=扠'#13#10'双=雙'#13#10'发=(發,髮)'#13#10'变=變'#13#10'叙=敘'#13#10 +'叠=疊'#13#10'只=(祇,衹,隻)'#13#10'台=(檯,臺,颱)'#13#10'叶=葉'#13#10'号=號'#13#10 +'叹=(嘆,歎)'#13#10'叽=嘰'#13#10'吁=籲'#13#10'吃=喫'#13#10'合=(郃,閤)'#13#10 +'吊=弔'#13#10'向=嚮'#13#10'吓=嚇'#13#10'吕=呂'#13#10'吗=嗎'#13#10 +'吨=噸'#13#10'听=聽'#13#10'启=啟'#13#10'吴=吳'#13#10'呐=吶'#13#10 +'呒=嘸'#13#10'呓=囈'#13#10'呕=嘔'#13#10'呖=嚦'#13#10'呗=唄'#13#10 +'员=員'#13#10'呙=咼'#13#10'呛=嗆'#13#10'呜=嗚'#13#10'周=週'#13#10 +'咏=詠'#13#10'咙=嚨'#13#10'咛=嚀'#13#10'咱=偺'#13#10'咸=鹹'#13#10 +'咽=嚥'#13#10'哄=鬨'#13#10'响=響'#13#10'哑=啞'#13#10'哒=噠'#13#10 +'哓=嘵'#13#10'哔=嗶'#13#10'哕=噦'#13#10'哗=嘩'#13#10'哙=噲'#13#10 +'哜=嚌'#13#10'哝=噥'#13#10'哟=喲'#13#10'唇=脣'#13#10'唛=嘜'#13#10 +'唠=嘮'#13#10'唢=嗩'#13#10'唤=喚'#13#10'啧=嘖'#13#10'啬=嗇'#13#10 +'啭=囀'#13#10'啮=(嚙,齧)'#13#10'啸=嘯'#13#10'喂=餵'#13#10'喷=噴'#13#10 +'喽=嘍'#13#10'喾=嚳'#13#10'嗫=囁'#13#10'嗳=噯'#13#10'嘘=噓'#13#10 +'嘤=嚶'#13#10'嘱=囑'#13#10'噜=嚕'#13#10'噪=譟'#13#10'嚣=囂'#13#10 +'回=迴'#13#10'团=(團,糰)'#13#10'园=園'#13#10'困=睏'#13#10'囱=囪'#13#10 +'围=圍'#13#10'囵=圇'#13#10'国=國'#13#10'图=圖'#13#10'圆=圓'#13#10 +'圣=聖'#13#10'圬=杇'#13#10'圹=壙'#13#10'场=場'#13#10'址=阯'#13#10 +'坏=壞'#13#10'块=塊'#13#10'坚=堅'#13#10'坛=(壇,罈)'#13#10'坜=壢'#13#10 +'坝=壩'#13#10'坞=塢'#13#10'坟=墳'#13#10'坠=墜'#13#10'垄=壟'#13#10 +'垆=壚'#13#10'垒=壘'#13#10'垦=墾'#13#10'垧=坰'#13#10'垩=堊'#13#10 +'垫=墊'#13#10'垭=埡'#13#10'垲=塏'#13#10'埘=塒'#13#10'埙=(塤,壎)'#13#10 +'埚=堝'#13#10'堑=塹'#13#10'堕=墮'#13#10'堤=隄'#13#10'墒=墑'#13#10 +'墙=(墻,牆)'#13#10'壮=壯'#13#10'声=聲'#13#10'壳=殼'#13#10'壶=壺'#13#10 +'处=處'#13#10'备=備'#13#10'复=(復,複)'#13#10'够=夠'#13#10'夫=伕'#13#10 +'头=頭'#13#10'夸=誇'#13#10'夹=夾'#13#10'夺=奪'#13#10'奁=奩'#13#10 +'奂=奐'#13#10'奋=奮'#13#10'奖=獎'#13#10'奥=奧'#13#10'奸=姦'#13#10 +'妆=妝'#13#10'妇=婦'#13#10'妈=媽'#13#10'妩=嫵'#13#10'妪=嫗'#13#10 +'妫=媯'#13#10'姗=姍'#13#10'姜=薑'#13#10'娄=婁'#13#10'娅=婭'#13#10 +'娆=嬈'#13#10'娇=嬌'#13#10'娈=孌'#13#10'娘=孃'#13#10'娱=娛'#13#10 +'娲=媧'#13#10'娴=嫻'#13#10'婴=嬰'#13#10'婵=嬋'#13#10'婶=嬸'#13#10 +'媪=媼'#13#10'嫒=嬡'#13#10'嫔=嬪'#13#10'嫱=嬙'#13#10'嬷=嬤'#13#10 +'孙=孫'#13#10'学=學'#13#10'孪=孿'#13#10'宁=寧'#13#10'宝=寶'#13#10 +'实=實'#13#10'宠=寵'#13#10'审=審'#13#10'宪=憲'#13#10'宫=宮'#13#10 +'家=傢'#13#10'宽=寬'#13#10'宾=賓'#13#10'寝=寢'#13#10'寸=吋'#13#10 +'对=對'#13#10'寻=尋'#13#10'导=導'#13#10'寿=壽'#13#10'将=將'#13#10 +'尔=爾'#13#10'尘=塵'#13#10'尝=嘗'#13#10'尧=堯'#13#10'尴=尷'#13#10 +'尺=呎'#13#10'尽=(儘,盡)'#13#10'局=(侷,挶,跼)'#13#10'层=層'#13#10'屉=屜'#13#10 +'届=屆'#13#10'属=屬'#13#10'屡=屢'#13#10'屦=屨'#13#10'屿=嶼'#13#10 +'岁=歲'#13#10'岂=豈'#13#10'岖=嶇'#13#10'岗=崗'#13#10'岘=峴'#13#10 +'岚=嵐'#13#10'岛=島'#13#10'岩=(嵒,巖)'#13#10'岭=嶺'#13#10'岳=嶽'#13#10 +'岽=崠'#13#10'岿=巋'#13#10'峄=嶧'#13#10'峡=峽'#13#10'峤=嶠'#13#10 +'峥=崢'#13#10'峦=巒'#13#10'崂=嶗'#13#10'崃=崍'#13#10'崭=嶄'#13#10 + '镆=鏌'#13#10'镇=鎮'#13#10'镉=鎘'#13#10'镊=鑷'#13#10'镌=鐫'#13#10 +'镍=鎳'#13#10'镏=鎦'#13#10'镐=鎬'#13#10'镑=鎊'#13#10'镒=鎰'#13#10 +'镓=鎵'#13#10'镔=鑌'#13#10'镖=鏢'#13#10'镗=鏜'#13#10'镘=鏝'#13#10 +'镙=鏍'#13#10'镛=鏞'#13#10'镜=鏡'#13#10'镝=鏑'#13#10'镞=鏃'#13#10 +'镟=鏇'#13#10'镡=鐔'#13#10'镣=鐐'#13#10'镤=鏷'#13#10'镦=鐓'#13#10 +'镧=鑭'#13#10'镨=鐠'#13#10'镪=鏹'#13#10'镫=鐙'#13#10'镬=鑊'#13#10 +'镭=鐳'#13#10'镯=鐲'#13#10'镰=鐮'#13#10'镱=鐿'#13#10'镳=鑣'#13#10 +'镶=(瓖,鑲)'#13#10'长=長'#13#10'门=門'#13#10'闩=閂'#13#10'闪=閃'#13#10 +'闫=閆'#13#10'闭=閉'#13#10'问=問'#13#10'闯=闖'#13#10'闰=閏'#13#10 +'闱=闈'#13#10'闲=(閑,閒)'#13#10'闳=閎'#13#10'间=間'#13#10'闵=閔'#13#10 +'闶=閌'#13#10'闷=悶'#13#10'闸=閘'#13#10'闹=鬧'#13#10'闺=閨'#13#10 +'闻=聞'#13#10'闼=闥'#13#10'闽=閩'#13#10'闾=閭'#13#10'阀=閥'#13#10 +'阁=閣'#13#10'阂=閡'#13#10'阃=閫'#13#10'阄=鬮'#13#10'阅=閱'#13#10 +'阆=閬'#13#10'阈=閾'#13#10'阉=閹'#13#10'阊=閶'#13#10'阋=鬩'#13#10 +'阌=閿'#13#10'阍=閽'#13#10'阎=閻'#13#10'阏=閼'#13#10'阐=闡'#13#10 +'阑=闌'#13#10'阒=闃'#13#10'阔=闊'#13#10'阕=闋'#13#10'阖=闔'#13#10 +'阗=闐'#13#10'阙=闕'#13#10'阚=闞'#13#10'队=隊'#13#10'阳=(暘,陽)'#13#10 +'阴=陰'#13#10'阵=陣'#13#10'阶=階'#13#10'际=際'#13#10'陆=陸'#13#10 +'陇=隴'#13#10'陈=陳'#13#10'陉=陘'#13#10'陕=(陜,陝)'#13#10'陧=隉'#13#10 +'陨=隕'#13#10'险=險'#13#10'随=隨'#13#10'隐=隱'#13#10'隳=皻'#13#10 +'隶=隸'#13#10'隽=雋'#13#10'难=難'#13#10'雇=僱'#13#10'雏=雛'#13#10 +'雕=彫'#13#10'雠=讎'#13#10'雳=靂'#13#10'雾=霧'#13#10'霁=霽'#13#10 +'霉=黴'#13#10'霭=靄'#13#10'靓=靚'#13#10'静=靜'#13#10'面=麵'#13#10 +'靥=靨'#13#10'鞑=韃'#13#10'鞯=韉'#13#10'韦=韋'#13#10'韧=韌'#13#10 +'韩=韓'#13#10'韪=韙'#13#10'韫=韞'#13#10'韬=韜'#13#10'韵=韻'#13#10 +'页=頁'#13#10'顶=頂'#13#10'顷=頃'#13#10'顸=頇'#13#10'项=項'#13#10 +'顺=順'#13#10'须=(須,鬚)'#13#10'顼=頊'#13#10'顽=頑'#13#10'顾=顧'#13#10 +'顿=頓'#13#10'颀=頎'#13#10'颁=頒'#13#10'颂=頌'#13#10'颃=頏'#13#10 +'预=預'#13#10'颅=顱'#13#10'领=領'#13#10'颇=頗'#13#10'颈=頸'#13#10 +'颉=頡'#13#10'颊=頰'#13#10'颌=頜'#13#10'颍=潁'#13#10'颏=頦'#13#10 +'颐=頤'#13#10'频=頻'#13#10'颓=頹'#13#10'颔=頷'#13#10'颖=穎'#13#10 +'颗=顆'#13#10'题=題'#13#10'颚=顎'#13#10'颛=顓'#13#10'颜=顏'#13#10 +'额=額'#13#10'颞=顳'#13#10'颟=顢'#13#10'颠=顛'#13#10'颡=顙'#13#10 +'颢=顥'#13#10'颤=顫'#13#10'颦=顰'#13#10'颧=顴'#13#10'风=風'#13#10 +'飑=颮'#13#10'飒=颯'#13#10'飓=颶'#13#10'飕=颼'#13#10'飘=飄'#13#10 +'飙=飆'#13#10'飞=飛'#13#10'飨=饗'#13#10'餍=饜'#13#10'饥=(飢,饑)'#13#10 +'饧=餳'#13#10'饨=飩'#13#10'饩=餼'#13#10'饪=飪'#13#10'饫=飫'#13#10 +'饬=飭'#13#10'饭=飯'#13#10'饮=飲'#13#10'饯=餞'#13#10'饰=飾'#13#10 +'饱=飽'#13#10'饲=飼'#13#10'饴=飴'#13#10'饵=餌'#13#10'饶=饒'#13#10 +'饷=餉'#13#10'饺=餃'#13#10'饼=餅'#13#10'饽=餑'#13#10'饿=餓'#13#10 +'馁=餒'#13#10'馄=餛'#13#10'馅=餡'#13#10'馆=館'#13#10'馈=(餽,饋)'#13#10 +'馊=餿'#13#10'馋=饞'#13#10'馍=(糢,饃)'#13#10'馏=餾'#13#10'馐=饈'#13#10 +'馑=饉'#13#10'馒=饅'#13#10'馔=饌'#13#10'马=馬'#13#10'驭=馭'#13#10 +'驮=馱'#13#10'驯=馴'#13#10'驰=馳'#13#10'驱=驅'#13#10'驳=駁'#13#10 +'驴=驢'#13#10'驵=駔'#13#10'驶=駛'#13#10'驷=駟'#13#10'驸=駙'#13#10 +'驹=駒'#13#10'驺=騶'#13#10'驻=駐'#13#10'驼=駝'#13#10'驽=駑'#13#10 +'驾=駕'#13#10'驿=驛'#13#10'骀=駘'#13#10'骁=驍'#13#10'骂=罵'#13#10 +'骄=驕'#13#10'骅=驊'#13#10'骆=駱'#13#10'骇=駭'#13#10'骈=駢'#13#10 +'骊=驪'#13#10'骋=騁'#13#10'验=驗'#13#10'骏=駿'#13#10'骐=騏'#13#10 +'骑=騎'#13#10'骒=騍'#13#10'骓=騅'#13#10'骖=驂'#13#10'骗=騙'#13#10 +'骘=騭'#13#10'骚=騷'#13#10'骛=騖'#13#10'骜=驁'#13#10'骝=騮'#13#10 +'骞=(騫,鶱)'#13#10'骟=騸'#13#10'骠=驃'#13#10'骡=騾'#13#10'骢=驄'#13#10 +'骣=驏'#13#10'骤=驟'#13#10'骥=驥'#13#10'骧=驤'#13#10'髅=髏'#13#10 +'髋=髖'#13#10'髌=髕'#13#10'鬓=鬢'#13#10'魇=魘'#13#10'魉=魎'#13#10 +'鱼=魚'#13#10'鱿=魷'#13#10'鲁=魯'#13#10'鲂=魴'#13#10'鲈=鱸'#13#10 +'鲋=鮒'#13#10'鲍=鮑'#13#10'鲎=鱟'#13#10'鲐=鮐'#13#10'鲑=鮭'#13#10 +'鲒=鮚'#13#10'鲔=鮪'#13#10'鲕=鮞'#13#10'鲚=鱭'#13#10'鲛=鮫'#13#10 +'鲜=鮮'#13#10'鲟=鱘'#13#10'鲠=鯁'#13#10'鲡=鱺'#13#10'鲢=鰱'#13#10 +'鲣=鰹'#13#10'鲤=鯉'#13#10'鲥=鰣'#13#10'鲦=鰷'#13#10'鲧=鯀'#13#10 +'鲨=鯊'#13#10'鲩=鯇'#13#10'鲫=鯽'#13#10'鲭=鯖'#13#10'鲮=鯪'#13#10 +'鲰=鯫'#13#10'鲱=鯡'#13#10'鲲=鯤'#13#10'鲳=鯧'#13#10'鲵=鯢'#13#10 +'鲶=鯰'#13#10'鲷=鯛'#13#10'鲸=鯨'#13#10'鲻=鯔'#13#10'鲽=鰈'#13#10 +'鳃=鰓'#13#10'鳄=鱷'#13#10'鳅=鰍'#13#10'鳆=鰒'#13#10'鳇=鰉'#13#10 +'鳌=(鰲,鼇)'#13#10'鳍=鰭'#13#10'鳎=鰨'#13#10'鳏=鰥'#13#10'鳐=鰩'#13#10 +'鳓=鰳'#13#10'鳔=鰾'#13#10'鳕=鱈'#13#10'鳖=鱉'#13#10'鳗=鰻'#13#10 +'鳜=鱖'#13#10'鳝=鱔'#13#10'鳞=鱗'#13#10'鳟=鱒'#13#10'鳢=鱧'#13#10 +'鸟=鳥'#13#10'鸠=鳩'#13#10'鸡=雞'#13#10'鸢=鳶'#13#10'鸣=鳴'#13#10 +'鸥=鷗'#13#10'鸦=鴉'#13#10'鸨=鴇'#13#10'鸩=鴆'#13#10'鸪=鴣'#13#10 +'鸫=鶇'#13#10'鸬=鸕'#13#10'鸭=鴨'#13#10'鸯=鴦'#13#10'鸱=鴟'#13#10 +'鸲=鴝'#13#10'鸳=鴛'#13#10'鸵=鴕'#13#10'鸶=鷥'#13#10'鸷=鷙'#13#10 +'鸸=鴯'#13#10'鸹=鴰'#13#10'鸺=鵂'#13#10'鸽=鴿'#13#10'鸾=鸞'#13#10 +'鸿=鴻'#13#10'鹁=鵓'#13#10'鹂=鸝'#13#10'鹃=鵑'#13#10'鹄=鵠'#13#10 +'鹅=鵝'#13#10'鹆=鵒'#13#10'鹇=(鷳,鷴)'#13#10'鹈=鵜'#13#10'鹉=鵡'#13#10 +'鹊=鵲'#13#10'鹌=鵪'#13#10'鹎=鵯'#13#10'鹏=鵬'#13#10'鹑=鶉'#13#10 +'鹕=鶘'#13#10'鹗=鶚'#13#10'鹘=鶻'#13#10'鹚=鶿'#13#10'鹜=鶩'#13#10 +'鹞=鷂'#13#10'鹣=鶼'#13#10'鹤=鶴'#13#10'鹦=鸚'#13#10'鹧=鷓'#13#10 +'鹨=鷚'#13#10'鹩=鷯'#13#10'鹪=鷦'#13#10'鹫=鷲'#13#10'鹬=鷸'#13#10 +'鹭=鷺'#13#10'鹰=鷹'#13#10'鹳=鸛'#13#10'鹾=鹺'#13#10'麦=麥'#13#10 +'麸=麩'#13#10'麻=(痲,痳)'#13#10'麽=麼'#13#10'黄=黃'#13#10'黉=黌'#13#10 +'黩=黷'#13#10'黪=黲'#13#10'黾=黽'#13#10'鼋=黿'#13#10'鼍=鼉'#13#10 +'鼹=鼴'#13#10'齐=齊'#13#10'齑=齏'#13#10'齿=齒'#13#10'龀=齔'#13#10 +'龃=齟'#13#10'龄=齡'#13#10'龅=齙'#13#10'龆=齠'#13#10'龇=齜'#13#10 +'龈=齦'#13#10'龉=齬'#13#10'龊=齪'#13#10'龋=齲'#13#10'龌=齷'#13#10 +'龙=龍'#13#10'龚=龔'#13#10'龛=龕'#13#10'龟=龜'#13#10'龠=籥'#13#10;function JianTiToFanTi(mJianTi: WideString): WideString;var I: Integer;begin Result := ''; with TStringList.Create do try Text := cJianTiFanTi; for I := 1 to Length(mJianTi) do if Values[mJianTi[I]] <> '' then Result := Result + Values[mJianTi[I]] else Result := Result + mJianTi[I]; finally Free; end;end; { JianTiToFanTi }function FanTiToJianTi(mFanTi: WideString): WideString;var I, J: Integer;begin Result := ''; for I := 1 to Length(mFanTi) do begin J := Pos(mFanTi[I], cJianTiFanTi); if J <= 0 then Result := Result + mFanTi[I] else begin while True do begin if cJianTiFanTi[J] = '=' then begin Result := Result + cJianTiFanTi[J - 1]; Break; end else if (J < 1) or (cJianTiFanTi[J] = #13) or (cJianTiFanTi[J] = #10) then begin Result := Result + mFanTi[I]; Break; end; Dec(J); end; end; end;end; { FanTiToJianTi }end. 16进制怎么转成字符串? 共享软件想改成免费的,怎么改? 各位大哥,為什麼插入的日期會出錯? 关于delphi合作开发的方法! 求助:grid表中加入时间 怎样判断 DBGRID 中的内容修改过 请教简单的activex的编写和应用过程 调用OpenFileName这个API,怎么可以获得多选文件的列表? 关于DLL的函数读去! 请问:为什么不能sum()一个计算字段的值? 来收分~! Delphi开发WebServer篇,如果你是高手请进,老手也可进,初学者可进----
Classes;function JianTiToFanTi(mJianTi: WideString): WideString;
function FanTiToJianTi(mFanTi: WideString): WideString;implementationconst
cJianTiFanTi: WideString =
'万=萬'#13#10'与=與'#13#10'丑=醜'#13#10'专=專'#13#10'业=業'#13#10 +
'丛=叢'#13#10'东=東'#13#10'丝=絲'#13#10'丢=丟'#13#10'两=兩'#13#10 +
'严=嚴'#13#10'丧=喪'#13#10'个=(個,箇)'#13#10'丰=豐'#13#10'临=臨'#13#10 +
'丸=汍'#13#10'为=為'#13#10'丽=麗'#13#10'举=舉'#13#10'乃=迺'#13#10 +
'义=義'#13#10'乌=烏'#13#10'乐=樂'#13#10'乔=喬'#13#10'习=習'#13#10 +
'乡=鄉'#13#10'书=書'#13#10'买=買'#13#10'乱=亂'#13#10'了=(暸,瞭)'#13#10 +
'争=爭'#13#10'亏=虧'#13#10'云=雲'#13#10'亘=亙'#13#10'亚=亞'#13#10 +
'产=產'#13#10'亩=畝'#13#10'亲=親'#13#10'亵=褻'#13#10'亿=億'#13#10 +
'仂=扐'#13#10'仄=庂'#13#10'仅=僅'#13#10'仆=僕'#13#10'从=從'#13#10 +
'仑=(侖,崙)'#13#10'仓=倉'#13#10'仪=儀'#13#10'们=們'#13#10'价=價'#13#10 +
'仿=倣'#13#10'众=眾'#13#10'优=優'#13#10'会=會'#13#10'伛=傴'#13#10 +
'伞=傘'#13#10'伟=偉'#13#10'传=傳'#13#10'伤=傷'#13#10'伥=倀'#13#10 +
'伦=倫'#13#10'伧=傖'#13#10'伪=偽'#13#10'伫=佇'#13#10'佑=祐'#13#10 +
'体=體'#13#10'余=餘'#13#10'佛=彿'#13#10'你=(你,妳)'#13#10'佣=傭'#13#10 +
'佥=僉'#13#10'佩=珮'#13#10'侄=姪'#13#10'侠=俠'#13#10'侣=侶'#13#10 +
'侥=僥'#13#10'侦=偵'#13#10'侧=側'#13#10'侨=僑'#13#10'侩=儈'#13#10 +
'侪=儕'#13#10'侬=儂'#13#10'俣=俁'#13#10'俦=儔'#13#10'俨=儼'#13#10 +
'俩=倆'#13#10'俪=儷'#13#10'俭=儉'#13#10'修=脩'#13#10'债=債'#13#10 +
'倾=傾'#13#10'偬=傯'#13#10'偻=僂'#13#10'偾=僨'#13#10'偿=償'#13#10 +
'傥=儻'#13#10'傧=儐'#13#10'储=儲'#13#10'傩=儺'#13#10'儿=兒'#13#10 +
'克=剋'#13#10'兑=兌'#13#10'兖=兗'#13#10'党=黨'#13#10'兰=蘭'#13#10 +
'关=關'#13#10'兴=興'#13#10'兹=(玆,茲)'#13#10'养=養'#13#10'兽=獸'#13#10 +
'冁=囅'#13#10'内=內'#13#10'冈=岡'#13#10'册=冊'#13#10'写=寫'#13#10 +
'军=軍'#13#10'农=農'#13#10'冬=鼕'#13#10'冯=馮'#13#10'冲=(沖,衝)'#13#10 +
'决=決'#13#10'况=況'#13#10'冻=凍'#13#10'净=(凈,淨)'#13#10'凄=(悽,淒)'#13#10 +
'准=準'#13#10'凉=涼'#13#10'减=減'#13#10'凑=湊'#13#10'凛=凜'#13#10 +
'几=幾'#13#10'凤=鳳'#13#10'凫=鳧'#13#10'凭=憑'#13#10'凯=凱'#13#10 +
'凶=兇'#13#10'出=齣'#13#10'击=擊'#13#10'凿=鑿'#13#10'刍=芻'#13#10 +
'划=劃'#13#10'刘=劉'#13#10'则=則'#13#10'刚=剛'#13#10'创=創'#13#10 +
'删=刪'#13#10'刨=(鉋,鑤)'#13#10'别=(別,彆)'#13#10'刭=剄'#13#10'刮=颳'#13#10 +
'制=製'#13#10'刹=剎'#13#10'刽=劊'#13#10'刿=劌'#13#10'剀=剴'#13#10 +
'剂=劑'#13#10'剐=剮'#13#10'剑=劍'#13#10'剥=剝'#13#10'剧=劇'#13#10 +
'剿=勦'#13#10'劝=勸'#13#10'办=辦'#13#10'务=務'#13#10'劢=勱'#13#10 +
'动=動'#13#10'励=勵'#13#10'劲=勁'#13#10'劳=勞'#13#10'势=勢'#13#10 +
'勋=勛'#13#10'勖=勗'#13#10'匀=勻'#13#10'匡=劻'#13#10'匦=匭'#13#10 +
'匮=匱'#13#10'区=區'#13#10'医=醫'#13#10'千=韆'#13#10'华=華'#13#10 +
'协=協'#13#10'单=單'#13#10'卖=賣'#13#10'卜=蔔'#13#10'占=佔'#13#10 +
'卢=盧'#13#10'卤=(滷,鹵)'#13#10'卧=臥'#13#10'卫=衛'#13#10'却=卻'#13#10 +
'卷=捲'#13#10'卺=巹'#13#10'厂=廠'#13#10'厄=阨'#13#10'厅=廳'#13#10 +
'历=(曆,歷)'#13#10'厉=厲'#13#10'压=壓'#13#10'厌=厭'#13#10'厍=厙'#13#10 +
'厕=廁'#13#10'厘=釐'#13#10'厢=廂'#13#10'厣=厴'#13#10'厦=廈'#13#10 +
'厨=廚'#13#10'厩=廄'#13#10'厮=廝'#13#10'县=縣'#13#10'参=參'#13#10 +
'叉=扠'#13#10'双=雙'#13#10'发=(發,髮)'#13#10'变=變'#13#10'叙=敘'#13#10 +
'叠=疊'#13#10'只=(祇,衹,隻)'#13#10'台=(檯,臺,颱)'#13#10'叶=葉'#13#10'号=號'#13#10 +
'叹=(嘆,歎)'#13#10'叽=嘰'#13#10'吁=籲'#13#10'吃=喫'#13#10'合=(郃,閤)'#13#10 +
'吊=弔'#13#10'向=嚮'#13#10'吓=嚇'#13#10'吕=呂'#13#10'吗=嗎'#13#10 +
'吨=噸'#13#10'听=聽'#13#10'启=啟'#13#10'吴=吳'#13#10'呐=吶'#13#10 +
'呒=嘸'#13#10'呓=囈'#13#10'呕=嘔'#13#10'呖=嚦'#13#10'呗=唄'#13#10 +
'员=員'#13#10'呙=咼'#13#10'呛=嗆'#13#10'呜=嗚'#13#10'周=週'#13#10 +
'咏=詠'#13#10'咙=嚨'#13#10'咛=嚀'#13#10'咱=偺'#13#10'咸=鹹'#13#10 +
'咽=嚥'#13#10'哄=鬨'#13#10'响=響'#13#10'哑=啞'#13#10'哒=噠'#13#10 +
'哓=嘵'#13#10'哔=嗶'#13#10'哕=噦'#13#10'哗=嘩'#13#10'哙=噲'#13#10 +
'哜=嚌'#13#10'哝=噥'#13#10'哟=喲'#13#10'唇=脣'#13#10'唛=嘜'#13#10 +
'唠=嘮'#13#10'唢=嗩'#13#10'唤=喚'#13#10'啧=嘖'#13#10'啬=嗇'#13#10 +
'啭=囀'#13#10'啮=(嚙,齧)'#13#10'啸=嘯'#13#10'喂=餵'#13#10'喷=噴'#13#10 +
'喽=嘍'#13#10'喾=嚳'#13#10'嗫=囁'#13#10'嗳=噯'#13#10'嘘=噓'#13#10 +
'嘤=嚶'#13#10'嘱=囑'#13#10'噜=嚕'#13#10'噪=譟'#13#10'嚣=囂'#13#10 +
'回=迴'#13#10'团=(團,糰)'#13#10'园=園'#13#10'困=睏'#13#10'囱=囪'#13#10 +
'围=圍'#13#10'囵=圇'#13#10'国=國'#13#10'图=圖'#13#10'圆=圓'#13#10 +
'圣=聖'#13#10'圬=杇'#13#10'圹=壙'#13#10'场=場'#13#10'址=阯'#13#10 +
'坏=壞'#13#10'块=塊'#13#10'坚=堅'#13#10'坛=(壇,罈)'#13#10'坜=壢'#13#10 +
'坝=壩'#13#10'坞=塢'#13#10'坟=墳'#13#10'坠=墜'#13#10'垄=壟'#13#10 +
'垆=壚'#13#10'垒=壘'#13#10'垦=墾'#13#10'垧=坰'#13#10'垩=堊'#13#10 +
'垫=墊'#13#10'垭=埡'#13#10'垲=塏'#13#10'埘=塒'#13#10'埙=(塤,壎)'#13#10 +
'埚=堝'#13#10'堑=塹'#13#10'堕=墮'#13#10'堤=隄'#13#10'墒=墑'#13#10 +
'墙=(墻,牆)'#13#10'壮=壯'#13#10'声=聲'#13#10'壳=殼'#13#10'壶=壺'#13#10 +
'处=處'#13#10'备=備'#13#10'复=(復,複)'#13#10'够=夠'#13#10'夫=伕'#13#10 +
'头=頭'#13#10'夸=誇'#13#10'夹=夾'#13#10'夺=奪'#13#10'奁=奩'#13#10 +
'奂=奐'#13#10'奋=奮'#13#10'奖=獎'#13#10'奥=奧'#13#10'奸=姦'#13#10 +
'妆=妝'#13#10'妇=婦'#13#10'妈=媽'#13#10'妩=嫵'#13#10'妪=嫗'#13#10 +
'妫=媯'#13#10'姗=姍'#13#10'姜=薑'#13#10'娄=婁'#13#10'娅=婭'#13#10 +
'娆=嬈'#13#10'娇=嬌'#13#10'娈=孌'#13#10'娘=孃'#13#10'娱=娛'#13#10 +
'娲=媧'#13#10'娴=嫻'#13#10'婴=嬰'#13#10'婵=嬋'#13#10'婶=嬸'#13#10 +
'媪=媼'#13#10'嫒=嬡'#13#10'嫔=嬪'#13#10'嫱=嬙'#13#10'嬷=嬤'#13#10 +
'孙=孫'#13#10'学=學'#13#10'孪=孿'#13#10'宁=寧'#13#10'宝=寶'#13#10 +
'实=實'#13#10'宠=寵'#13#10'审=審'#13#10'宪=憲'#13#10'宫=宮'#13#10 +
'家=傢'#13#10'宽=寬'#13#10'宾=賓'#13#10'寝=寢'#13#10'寸=吋'#13#10 +
'对=對'#13#10'寻=尋'#13#10'导=導'#13#10'寿=壽'#13#10'将=將'#13#10 +
'尔=爾'#13#10'尘=塵'#13#10'尝=嘗'#13#10'尧=堯'#13#10'尴=尷'#13#10 +
'尺=呎'#13#10'尽=(儘,盡)'#13#10'局=(侷,挶,跼)'#13#10'层=層'#13#10'屉=屜'#13#10 +
'届=屆'#13#10'属=屬'#13#10'屡=屢'#13#10'屦=屨'#13#10'屿=嶼'#13#10 +
'岁=歲'#13#10'岂=豈'#13#10'岖=嶇'#13#10'岗=崗'#13#10'岘=峴'#13#10 +
'岚=嵐'#13#10'岛=島'#13#10'岩=(嵒,巖)'#13#10'岭=嶺'#13#10'岳=嶽'#13#10 +
'岽=崠'#13#10'岿=巋'#13#10'峄=嶧'#13#10'峡=峽'#13#10'峤=嶠'#13#10 +
'峥=崢'#13#10'峦=巒'#13#10'崂=嶗'#13#10'崃=崍'#13#10'崭=嶄'#13#10 +
'镍=鎳'#13#10'镏=鎦'#13#10'镐=鎬'#13#10'镑=鎊'#13#10'镒=鎰'#13#10 +
'镓=鎵'#13#10'镔=鑌'#13#10'镖=鏢'#13#10'镗=鏜'#13#10'镘=鏝'#13#10 +
'镙=鏍'#13#10'镛=鏞'#13#10'镜=鏡'#13#10'镝=鏑'#13#10'镞=鏃'#13#10 +
'镟=鏇'#13#10'镡=鐔'#13#10'镣=鐐'#13#10'镤=鏷'#13#10'镦=鐓'#13#10 +
'镧=鑭'#13#10'镨=鐠'#13#10'镪=鏹'#13#10'镫=鐙'#13#10'镬=鑊'#13#10 +
'镭=鐳'#13#10'镯=鐲'#13#10'镰=鐮'#13#10'镱=鐿'#13#10'镳=鑣'#13#10 +
'镶=(瓖,鑲)'#13#10'长=長'#13#10'门=門'#13#10'闩=閂'#13#10'闪=閃'#13#10 +
'闫=閆'#13#10'闭=閉'#13#10'问=問'#13#10'闯=闖'#13#10'闰=閏'#13#10 +
'闱=闈'#13#10'闲=(閑,閒)'#13#10'闳=閎'#13#10'间=間'#13#10'闵=閔'#13#10 +
'闶=閌'#13#10'闷=悶'#13#10'闸=閘'#13#10'闹=鬧'#13#10'闺=閨'#13#10 +
'闻=聞'#13#10'闼=闥'#13#10'闽=閩'#13#10'闾=閭'#13#10'阀=閥'#13#10 +
'阁=閣'#13#10'阂=閡'#13#10'阃=閫'#13#10'阄=鬮'#13#10'阅=閱'#13#10 +
'阆=閬'#13#10'阈=閾'#13#10'阉=閹'#13#10'阊=閶'#13#10'阋=鬩'#13#10 +
'阌=閿'#13#10'阍=閽'#13#10'阎=閻'#13#10'阏=閼'#13#10'阐=闡'#13#10 +
'阑=闌'#13#10'阒=闃'#13#10'阔=闊'#13#10'阕=闋'#13#10'阖=闔'#13#10 +
'阗=闐'#13#10'阙=闕'#13#10'阚=闞'#13#10'队=隊'#13#10'阳=(暘,陽)'#13#10 +
'阴=陰'#13#10'阵=陣'#13#10'阶=階'#13#10'际=際'#13#10'陆=陸'#13#10 +
'陇=隴'#13#10'陈=陳'#13#10'陉=陘'#13#10'陕=(陜,陝)'#13#10'陧=隉'#13#10 +
'陨=隕'#13#10'险=險'#13#10'随=隨'#13#10'隐=隱'#13#10'隳=皻'#13#10 +
'隶=隸'#13#10'隽=雋'#13#10'难=難'#13#10'雇=僱'#13#10'雏=雛'#13#10 +
'雕=彫'#13#10'雠=讎'#13#10'雳=靂'#13#10'雾=霧'#13#10'霁=霽'#13#10 +
'霉=黴'#13#10'霭=靄'#13#10'靓=靚'#13#10'静=靜'#13#10'面=麵'#13#10 +
'靥=靨'#13#10'鞑=韃'#13#10'鞯=韉'#13#10'韦=韋'#13#10'韧=韌'#13#10 +
'韩=韓'#13#10'韪=韙'#13#10'韫=韞'#13#10'韬=韜'#13#10'韵=韻'#13#10 +
'页=頁'#13#10'顶=頂'#13#10'顷=頃'#13#10'顸=頇'#13#10'项=項'#13#10 +
'顺=順'#13#10'须=(須,鬚)'#13#10'顼=頊'#13#10'顽=頑'#13#10'顾=顧'#13#10 +
'顿=頓'#13#10'颀=頎'#13#10'颁=頒'#13#10'颂=頌'#13#10'颃=頏'#13#10 +
'预=預'#13#10'颅=顱'#13#10'领=領'#13#10'颇=頗'#13#10'颈=頸'#13#10 +
'颉=頡'#13#10'颊=頰'#13#10'颌=頜'#13#10'颍=潁'#13#10'颏=頦'#13#10 +
'颐=頤'#13#10'频=頻'#13#10'颓=頹'#13#10'颔=頷'#13#10'颖=穎'#13#10 +
'颗=顆'#13#10'题=題'#13#10'颚=顎'#13#10'颛=顓'#13#10'颜=顏'#13#10 +
'额=額'#13#10'颞=顳'#13#10'颟=顢'#13#10'颠=顛'#13#10'颡=顙'#13#10 +
'颢=顥'#13#10'颤=顫'#13#10'颦=顰'#13#10'颧=顴'#13#10'风=風'#13#10 +
'飑=颮'#13#10'飒=颯'#13#10'飓=颶'#13#10'飕=颼'#13#10'飘=飄'#13#10 +
'飙=飆'#13#10'飞=飛'#13#10'飨=饗'#13#10'餍=饜'#13#10'饥=(飢,饑)'#13#10 +
'饧=餳'#13#10'饨=飩'#13#10'饩=餼'#13#10'饪=飪'#13#10'饫=飫'#13#10 +
'饬=飭'#13#10'饭=飯'#13#10'饮=飲'#13#10'饯=餞'#13#10'饰=飾'#13#10 +
'饱=飽'#13#10'饲=飼'#13#10'饴=飴'#13#10'饵=餌'#13#10'饶=饒'#13#10 +
'饷=餉'#13#10'饺=餃'#13#10'饼=餅'#13#10'饽=餑'#13#10'饿=餓'#13#10 +
'馁=餒'#13#10'馄=餛'#13#10'馅=餡'#13#10'馆=館'#13#10'馈=(餽,饋)'#13#10 +
'馊=餿'#13#10'馋=饞'#13#10'馍=(糢,饃)'#13#10'馏=餾'#13#10'馐=饈'#13#10 +
'馑=饉'#13#10'馒=饅'#13#10'馔=饌'#13#10'马=馬'#13#10'驭=馭'#13#10 +
'驮=馱'#13#10'驯=馴'#13#10'驰=馳'#13#10'驱=驅'#13#10'驳=駁'#13#10 +
'驴=驢'#13#10'驵=駔'#13#10'驶=駛'#13#10'驷=駟'#13#10'驸=駙'#13#10 +
'驹=駒'#13#10'驺=騶'#13#10'驻=駐'#13#10'驼=駝'#13#10'驽=駑'#13#10 +
'驾=駕'#13#10'驿=驛'#13#10'骀=駘'#13#10'骁=驍'#13#10'骂=罵'#13#10 +
'骄=驕'#13#10'骅=驊'#13#10'骆=駱'#13#10'骇=駭'#13#10'骈=駢'#13#10 +
'骊=驪'#13#10'骋=騁'#13#10'验=驗'#13#10'骏=駿'#13#10'骐=騏'#13#10 +
'骑=騎'#13#10'骒=騍'#13#10'骓=騅'#13#10'骖=驂'#13#10'骗=騙'#13#10 +
'骘=騭'#13#10'骚=騷'#13#10'骛=騖'#13#10'骜=驁'#13#10'骝=騮'#13#10 +
'骞=(騫,鶱)'#13#10'骟=騸'#13#10'骠=驃'#13#10'骡=騾'#13#10'骢=驄'#13#10 +
'骣=驏'#13#10'骤=驟'#13#10'骥=驥'#13#10'骧=驤'#13#10'髅=髏'#13#10 +
'髋=髖'#13#10'髌=髕'#13#10'鬓=鬢'#13#10'魇=魘'#13#10'魉=魎'#13#10 +
'鱼=魚'#13#10'鱿=魷'#13#10'鲁=魯'#13#10'鲂=魴'#13#10'鲈=鱸'#13#10 +
'鲋=鮒'#13#10'鲍=鮑'#13#10'鲎=鱟'#13#10'鲐=鮐'#13#10'鲑=鮭'#13#10 +
'鲒=鮚'#13#10'鲔=鮪'#13#10'鲕=鮞'#13#10'鲚=鱭'#13#10'鲛=鮫'#13#10 +
'鲜=鮮'#13#10'鲟=鱘'#13#10'鲠=鯁'#13#10'鲡=鱺'#13#10'鲢=鰱'#13#10 +
'鲣=鰹'#13#10'鲤=鯉'#13#10'鲥=鰣'#13#10'鲦=鰷'#13#10'鲧=鯀'#13#10 +
'鲨=鯊'#13#10'鲩=鯇'#13#10'鲫=鯽'#13#10'鲭=鯖'#13#10'鲮=鯪'#13#10 +
'鲰=鯫'#13#10'鲱=鯡'#13#10'鲲=鯤'#13#10'鲳=鯧'#13#10'鲵=鯢'#13#10 +
'鲶=鯰'#13#10'鲷=鯛'#13#10'鲸=鯨'#13#10'鲻=鯔'#13#10'鲽=鰈'#13#10 +
'鳃=鰓'#13#10'鳄=鱷'#13#10'鳅=鰍'#13#10'鳆=鰒'#13#10'鳇=鰉'#13#10 +
'鳌=(鰲,鼇)'#13#10'鳍=鰭'#13#10'鳎=鰨'#13#10'鳏=鰥'#13#10'鳐=鰩'#13#10 +
'鳓=鰳'#13#10'鳔=鰾'#13#10'鳕=鱈'#13#10'鳖=鱉'#13#10'鳗=鰻'#13#10 +
'鳜=鱖'#13#10'鳝=鱔'#13#10'鳞=鱗'#13#10'鳟=鱒'#13#10'鳢=鱧'#13#10 +
'鸟=鳥'#13#10'鸠=鳩'#13#10'鸡=雞'#13#10'鸢=鳶'#13#10'鸣=鳴'#13#10 +
'鸥=鷗'#13#10'鸦=鴉'#13#10'鸨=鴇'#13#10'鸩=鴆'#13#10'鸪=鴣'#13#10 +
'鸫=鶇'#13#10'鸬=鸕'#13#10'鸭=鴨'#13#10'鸯=鴦'#13#10'鸱=鴟'#13#10 +
'鸲=鴝'#13#10'鸳=鴛'#13#10'鸵=鴕'#13#10'鸶=鷥'#13#10'鸷=鷙'#13#10 +
'鸸=鴯'#13#10'鸹=鴰'#13#10'鸺=鵂'#13#10'鸽=鴿'#13#10'鸾=鸞'#13#10 +
'鸿=鴻'#13#10'鹁=鵓'#13#10'鹂=鸝'#13#10'鹃=鵑'#13#10'鹄=鵠'#13#10 +
'鹅=鵝'#13#10'鹆=鵒'#13#10'鹇=(鷳,鷴)'#13#10'鹈=鵜'#13#10'鹉=鵡'#13#10 +
'鹊=鵲'#13#10'鹌=鵪'#13#10'鹎=鵯'#13#10'鹏=鵬'#13#10'鹑=鶉'#13#10 +
'鹕=鶘'#13#10'鹗=鶚'#13#10'鹘=鶻'#13#10'鹚=鶿'#13#10'鹜=鶩'#13#10 +
'鹞=鷂'#13#10'鹣=鶼'#13#10'鹤=鶴'#13#10'鹦=鸚'#13#10'鹧=鷓'#13#10 +
'鹨=鷚'#13#10'鹩=鷯'#13#10'鹪=鷦'#13#10'鹫=鷲'#13#10'鹬=鷸'#13#10 +
'鹭=鷺'#13#10'鹰=鷹'#13#10'鹳=鸛'#13#10'鹾=鹺'#13#10'麦=麥'#13#10 +
'麸=麩'#13#10'麻=(痲,痳)'#13#10'麽=麼'#13#10'黄=黃'#13#10'黉=黌'#13#10 +
'黩=黷'#13#10'黪=黲'#13#10'黾=黽'#13#10'鼋=黿'#13#10'鼍=鼉'#13#10 +
'鼹=鼴'#13#10'齐=齊'#13#10'齑=齏'#13#10'齿=齒'#13#10'龀=齔'#13#10 +
'龃=齟'#13#10'龄=齡'#13#10'龅=齙'#13#10'龆=齠'#13#10'龇=齜'#13#10 +
'龈=齦'#13#10'龉=齬'#13#10'龊=齪'#13#10'龋=齲'#13#10'龌=齷'#13#10 +
'龙=龍'#13#10'龚=龔'#13#10'龛=龕'#13#10'龟=龜'#13#10'龠=籥'#13#10;function JianTiToFanTi(mJianTi: WideString): WideString;
var
I: Integer;
begin
Result := '';
with TStringList.Create do try
Text := cJianTiFanTi;
for I := 1 to Length(mJianTi) do
if Values[mJianTi[I]] <> '' then
Result := Result + Values[mJianTi[I]]
else Result := Result + mJianTi[I];
finally
Free;
end;
end; { JianTiToFanTi }function FanTiToJianTi(mFanTi: WideString): WideString;
var
I, J: Integer;
begin
Result := '';
for I := 1 to Length(mFanTi) do begin
J := Pos(mFanTi[I], cJianTiFanTi);
if J <= 0 then
Result := Result + mFanTi[I]
else begin
while True do begin
if cJianTiFanTi[J] = '=' then begin
Result := Result + cJianTiFanTi[J - 1];
Break;
end else if (J < 1) or (cJianTiFanTi[J] = #13) or
(cJianTiFanTi[J] = #10) then begin
Result := Result + mFanTi[I];
Break;
end;
Dec(J);
end;
end;
end;
end; { FanTiToJianTi }end.