比如有3个edit控件,edit1\edit2\edit3 ,在edit1中输入中文后,在edit2、edit3中分别显示拼音码和五笔码?调用系统函数可以解决拼音码的问题,但是五笔码不知道怎么办,最好用一个函数能同时调用拼音码和五笔码。
解决方案 »
- 第一次面试
- 关于Excel的几个问题!
- 请求援助-我需要一个增强型的stringgrid
- 向大家请教几个问题?
- DbGrid一定只能用于数据库吗?????
- 用什么方法可以侦测到用户修改系统时间 ?
- 我想用savedialog和query导出一个表里面的一些数据,正文里面的代码已经可以正确导出数据了,可是数据库类型和名称都不对,请帮我指正!
- 急需帮助!!!ToolBar组件的Button上为何加不了图标呢?
- 打开外部文件
- DELPHI做一个MAIL SERVER。只要能收到邮件的信息就可以了。
- 怎么模拟键盘发送回车键,要驱动级的
- 30元人民币求解决方法,WebBrowser1.OleObject.document.links.item(i).Click [在线等,第一个解决的留下支付宝]
ImeName
通过这个属性 你可以设置输入法的
你试一下
需要的話論壇M我,我發給你
var str_new : string;
ch : char;
l,i: integer;
begin
str_new := '';
l := length(str);
i := 1;
while i<=l do
begin
ch := str[i];
if ord(ch) >128 then
begin
str_new := str_new + getPY(str[i],str[i+1]);
i := i + 2;
end
else
begin
if ord(ch) = 32 then
else
str_new := str_new + UpCase(ch);
Inc(i);
end;
end;
result := str_new;
end; function TForm1.getPY(ch1, ch2: char): char;
var i: Integer;
hzchar : string;
begin
hzchar := ch1 + ch2;
case word(ch1) shl 8 + word(ch2) of
$B0A1..$B0C4: result := 'A';
$B0C5..$B2C0: result := 'B';
$B2C1..$B4ED: result := 'C';
$B4EE..$B6E9: result := 'D';
$B6EA..$B7A1: result := 'E';
$B7A2..$B8C0: result := 'F';
$B8C1..$B9FD: result := 'G';
$B9FE..$BBF6: result := 'H';
$BBF7..$BFA5: result := 'J';
$BFA6..$C0AB: result := 'K';
$C0AC..$C2E7: result := 'L';
$C2E8..$C4C2: result := 'M';
$C4C3..$C5B5: result := 'N';
$C5B6..$C5BD: result := 'O';
$C5BE..$C6D9: result := 'P';
$C6DA..$C8BA: result := 'Q';
$C8BB..$C8F5: result := 'R';
$C8F6..$CBF9: result := 'S';
$CBFA..$CDD9: result := 'T';
$CDDA..$CEF3: result := 'W';
$CEF4..$D1B8: result := 'X';
$D1B9..$D4D0: result := 'Y';
$D4D1..$D7F9: result := 'Z';
else
begin
for i := Low(HZK2) to High(HZK2) do
begin
if Pos(hzchar, HZK2[i][2]) > 0 then
begin
Result := HZK2[i][1][1];
Exit;
end;
end;
RESULT := char(0);
end;
end;
end;
{汉字二级库}
HZK2:array[1..23,1..2] of string=(
('A','锕 捱 嗳 嗌 嫒 瑷 暧 砹 锿 霭 谙 埯 揞 犴 庵 桉 铵 鹌 黯 '+
'嚣 坳 拗 嗷 岙 廒 遨 媪 骜 獒 聱 螯 鏊 鳌 鏖 '), ('B','茇 菝 岜 灞 钯 粑 鲅 魃 捭 掰 阪 坂 钣 瘢 癍 舨 蒡 浜 曝 '+
'葆 孢 煲 鸨 褓 趵 龅 孛 陂 邶 埤 萆 蓓 呗 悖 碚 鹎 褙 鐾 鞴 夯 '+
'畚 坌 贲 锛 嘣 甏 匕 俾 埤 芘 荜 荸 萆 薜 吡 哔 狴 庳 愎 滗 濞 '+
'弼 妣 婢 嬖 璧 贲 睥 畀 铋 秕 裨 筚 箅 篦 舭 襞 跸 髀 匾 弁 苄 '+
'忭 汴 缏 飚 煸 砭 碥 窆 褊 蝙 笾 鳊 婊 骠 杓 飑 飙 镖 镳 瘭 裱 '+
'鳔 髟 蹩 傧 豳 缤 玢 槟 殡 膑 镔 髌 鬓 禀 邴 摒 槟 柏 卜 孛 亳 '+
'啵 饽 檗 掰 擘 礴 钹 鹁 簸 趵 跛 踣 卟 逋 瓿 晡 钚 钸 醭 '), ('C','嚓 礤 孱 骖 璨 粲 黪 嘈 漕 螬 艚 恻 岑 涔 刹 喳 嚓 猹 馇 汊 姹 杈 楂 '+
'槎 檫 锸 镲 衩 侪 钗 瘥 虿 冁 谄 蒇 廛 忏 潺 澶 孱 羼 婵 骣 觇 '+
'禅 镡 蟾 躔 倘 伥 鬯 苌 菖 徜 怅 惝 阊 娼 嫦 昶 氅 鲳 绰 剿 怊 '+
'晁 焯 耖 坼 砗 郴 伧 谌 谶 抻 嗔 宸 琛 榇 碜 龀 骋 秤 丞 埕 噌 '+
'枨 柽 塍 瞠 铖 铛 裎 蛏 酲 傺 坻 墀 茌 叱 哧 啻 嗤 饬 媸 敕 眵 '+
'鸱 瘛 褫 蚩 螭 笞 篪 豉 踟 魑 茺 忡 憧 铳 舂 艟 俦 帱 惆 瘳 雠 '+
'畜 亍 刍 怵 憷 绌 杵 楮 樗 褚 蜍 蹰 黜 搋 膪 踹 啜 嘬 舛 遄 巛 '+
'氚 钏 舡 怆 陲 棰 槌 茈 呲 祠 鹚 糍 楱 辏 腠 蔟 徂 猝 殂 酢 蹙 '+
'蹴 攒 汆 撺 爨 镩 萃 啐 悴 璀 榱 毳 隹 忖 皴 厝 嵯 脞 锉 矬 痤 '+
'瘥 鹾 蹉 '), ('D','耷 哒 嗒 怛 妲 沓 疸 褡 笪 靼 鞑 埭 甙 呔 岱 迨 骀 绐 玳 黛 '+
'诞 儋 萏 啖 澹 殚 赕 眈 疸 瘅 聃 箪 谠 凼 菪 宕 砀 裆 叨 帱 忉 '+
'氘 焘 纛 锝 噔 嶝 戥 磴 镫 簦 氐 籴 诋 谛 邸 坻 荻 嘀 娣 绨 柢 '+
'棣 觌 砥 碲 睇 镝 羝 骶 嗲 阽 坫 巅 玷 钿 癜 癫 簟 踮 铞 铫 貂 '+
'鲷 垤 堞 揲 喋 牒 瓞 耋 踮 蹀 鲽 仃 啶 玎 腚 碇 町 铤 疔 耵 酊 '+
'铥 垌 咚 岽 峒 氡 胨 胴 硐 鸫 蔸 窦 蚪 篼 芏 嘟 渎 椟 牍 蠹 笃 '+
'髑 黩 椴 煅 簖 怼 憝 碓 沌 炖 砘 礅 盹 镦 趸 驮 咄 哚 沲 缍 柁 '+
'铎 裰 踱 '), ('E','噩 谔 垩 苊 莪 萼 呃 愕 屙 婀 轭 腭 锇 锷 鹗 颚 鳄 诶 蒽 摁 佴 迩 珥 铒 鸸 鲕 '), ('F','垡 砝 蕃 蘩 幡 梵 燔 畈 蹯 坊 邡 彷 枋 钫 舫 鲂 芾 狒 悱 淝 妃 绯 榧 腓 '+
'斐 扉 镄 痱 蜚 篚 翡 霏 鲱 偾 瀵 玢 棼 鲼 鼢 俸 酆 葑 唪 沣 砜 缶 '+
'匐 凫 郛 芙 芾 苻 茯 莩 菔 拊 呋 幞 怫 滏 艴 孚 驸 绂 绋 桴 赙 '+
'祓 砩 黻 黼 罘 稃 馥 蚨 蜉 蝠 蝮 麸 趺 跗 鲋 鳆 '), ('G','尬 尕 尜 旮 钆 丐 陔 垓 戤 赅 坩 苷 尴 擀 泔 淦 澉 绀 橄 旰 矸 疳 酐 '+
'戆 罡 筻 睾 诰 郜 藁 缟 槔 槁 杲 锆 咯 屹 鬲 仡 哿 圪 塥 嗝 纥 '+
'搿 膈 硌 镉 袼 颌 虼 舸 骼 亘 茛 哏 艮 哽 赓 绠 鲠 珙 肱 蚣 觥 '+
'佝 诟 岣 遘 媾 缑 枸 觏 彀 笱 篝 鞲 嘏 诂 菰 呱 崮 汩 梏 轱 牯 '+
'牿 臌 毂 瞽 罟 钴 锢 鸪 鹄 痼 蛄 酤 觚 鲴 鹘 卦 诖 呱 栝 胍 鸹 '+
'纶 倌 莞 掼 涫 盥 鹳 矜 鳏 咣 犷 桄 胱 傀 炔 匦 刿 庋 宄 妫 桧 '+
'炅 晷 皈 簋 鲑 鳜 衮 绲 磙 鲧 涡 馘 埚 掴 呙 帼 崞 猓 椁 虢 聒 蜾 蝈 '), ('H','蛤 虾 铪 嘿 咳 嗨 胲 醢 邗 菡 撖 阚 瀚 晗 焓 顸 颔 蚶 鼾 沆 绗 珩 颃 镐 '+
'貉 蒿 薅 嗥 嚆 濠 灏 昊 皓 颢 蚝 诃 劾 壑 嗬 阖 纥 曷 盍 颌 蚵 翮 '+
'蘅 珩 桁 黉 訇 讧 荭 蕻 薨 闳 泓 堠 後 逅 瘊 篌 糇 鲎 骺 冱 唿 囫 '+
'岵 猢 怙 惚 浒 滹 琥 槲 轷 觳 烀 煳 戽 扈 祜 瓠 鹄 鹕 鹱 笏 醐 斛 '+
'骅 桦 砉 铧 踝 郇 奂 萑 擐 圜 獾 洹 浣 漶 寰 逭 缳 锾 鲩 鬟 隍 徨 '+
'湟 潢 遑 璜 肓 癀 蟥 篁 鳇 茴 荟 蕙 咴 哕 喙 隳 洄 浍 彗 缋 珲 桧 '+
'晖 恚 虺 蟪 麾 诨 馄 阍 溷 劐 藿 攉 嚯 夥 钬 锪 镬 耠 蠖 '), ('J','丌 亟 乩 剞 佶 偈 诘 墼 芨 芰 荠 蒺 蕺 掎 叽 咭 哜 唧 岌 嵴 洎 屐 骥 畿 '+
'玑 楫 殛 戟 戢 赍 觊 犄 齑 矶 羁 嵇 稷 瘠 虮 笈 笄 暨 跻 跽 霁 鲚 '+
'鲫 髻 麂 嘏 伽 郏 葭 岬 浃 迦 珈 戛 胛 恝 铗 镓 痂 瘕 袷 蛱 笳 '+
'袈 跏 僭 谏 谫 菅 蒹 搛 囝 湔 蹇 謇 缣 枧 楗 戋 戬 牮 犍 毽 腱 '+
'睑 锏 鹣 裥 笕 翦 趼 踺 鲣 鞯 吉 安 茳 洚 绛 缰 犟 礓 耩 糨 豇 '+
'僬 艽 茭 挢 噍 峤 徼 湫 姣 敫 皎 鹪 蛟 醮 跤 鲛 偈 讦 诘 拮 喈 '+
'嗟 婕 孑 桀 碣 疖 颉 蚧 羯 鲒 骱 饥 饿 卺 荩 堇 噤 馑 廑 妗 缙 '+
'瑾 槿 赆 觐 衿 刭 儆 阱 菁 獍 憬 泾 迳 弪 婧 肼 胫 腈 旌 靓 迥 '+
'炅 扃 僦 啾 阄 柩 桕 鸠 鹫 赳 鬏 倨 讵 苣 苴 莒 掬 遽 屦 琚 枸 '+
'椐 榘 榉 橘 犋 飓 钜 锔 窭 裾 趄 醵 踽 龃 雎 瞿 鞫 鄄 狷 涓 桊 '+
'蠲 锩 镌 隽 厥 劂 谲 矍 蕨 嗟 噘 噱 崛 獗 孓 珏 桷 橛 爝 镢 蹶 '+
'觖 巨 捃 皲 筠 麇 '), ('K','佧 咔 胩 剀 垲 蒈 忾 恺 铠 锎 锴 侃 莰 阚 戡 龛 瞰 伉 闶 钪 尻 栲 '+
'犒 铐 嗑 岢 恪 溘 骒 缂 珂 轲 氪 瞌 钶 锞 稞 疴 窠 颏 蝌 髁 '+
'裉 铿 倥 崆 箜 芤 蔻 叩 眍 筘 刳 堀 喾 绔 骷 侉 侩 蒯 郐 哙 '+
'狯 浍 脍 髋 诓 诳 邝 圹 夼 哐 纩 贶 馗 匮 夔 隗 蒉 揆 喹 喟 '+
'悝 愦 逵 暌 睽 聩 蝰 篑 跬 悃 阃 琨 锟 醌 鲲 髡 栝 蛞 '), ('L','剌 邋 旯 砬 瘌 崃 徕 涞 濑 赉 睐 铼 癞 籁 岚 漤 榄 斓 罱 镧 褴 '+
'莨 蒗 啷 阆 锒 稂 螂 潦 唠 崂 栳 铑 铹 痨 耢 醪 仂 叻 泐 鳓 '+
'羸 诔 嘞 嫘 缧 檑 耒 酹 塄 愣 鬲 俪 俚 郦 坜 苈 莅 蓠 藜 呖 '+
'唳 喱 猁 悝 溧 澧 逦 娌 嫠 骊 缡 枥 栎 轹 戾 砺 詈 罹 锂 鹂 '+
'疠 疬 蛎 蜊 蠡 笠 篥 粝 醴 跞 雳 鲡 鳢 黧 蔹 奁 潋 濂 琏 楝 '+
'殓 臁 裢 裣 蠊 鲢 立 案 墚 莨 椋 踉 靓 魉 蓼 尥 嘹 獠 寮 缭 '+
'钌 鹩 冽 埒 捩 咧 洌 趔 躐 鬣 蔺 啉 嶙 廪 懔 遴 檩 辚 膦 瞵 '+
'粼 躏 酃 苓 呤 囹 泠 绫 柃 棂 瓴 聆 蛉 翎 鲮 浏 遛 骝 绺 旒 '+
'熘 锍 镏 鹨 鎏 茏 泷 珑 栊 胧 砻 癃 偻 蒌 喽 嵝 镂 瘘 耧 蝼 '+
'髅 垆 蓼 撸 噜 闾 泸 渌 漉 逯 璐 栌 榈 橹 轳 辂 辘 氇 胪 膂 '+
'镥 稆 鸬 鹭 褛 簏 舻 鲈 挛 孪 滦 脔 娈 栾 鸾 銮 锊 囵 倮 蠃 '+
'荦 捋 摞 猡 泺 漯 珞 椤 脶 硌 镙 瘰 雒 '), ('M','唛 犸 嬷 杩 蟆 劢 荬 霾 墁 幔 缦 熳 镘 颟 螨 鳗 鞔 邙 漭 硭 蟒 '+
'袤 茆 峁 泖 瑁 昴 牦 耄 旄 懋 瞀 蟊 髦 麽 莓 嵋 猸 浼 湄 楣 '+
'镅 鹛 袂 魅 扪 焖 懑 钔 勐 甍 瞢 懵 朦 礞 虻 蜢 蠓 艋 艨 芈 '+
'谧 蘼 咪 嘧 猕 汨 宓 弭 脒 祢 敉 糸 縻 麋 沔 渑 湎 腼 眄 喵 '+
'邈 缈 缪 杪 淼 眇 鹋 乜 咩 蠛 篾 苠 岷 闵 泯 缗 玟 珉 愍 黾 '+
'鳘 冥 茗 溟 暝 瞑 酩 谟 茉 蓦 馍 嫫 殁 镆 秣 瘼 耱 貊 貘 侔 '+
'哞 缪 眸 蛑 蝥 鍪 仫 坶 苜 沐 毪 钼 '),
('N','捺 肭 镎 衲 鼐 艿 萘 柰 喃 囝 囡 楠 腩 蝻 赧 攮 囔 馕 曩 孬 垴 呶 猱 '+
'瑙 硇 铙 蛲 讷 恁 伲 坭 猊 怩 昵 旎 祢 慝 睨 铌 鲵 廿 埝 辇 '+
'黏 鲇 鲶 茑 嬲 脲 袅 乜 陧 蘖 嗫 颞 臬 蹑 佞 苎 咛 甯 聍 拗 '+
'狃 忸 妞 侬 哝 耨 弩 胬 孥 驽 恧 钕 衄 傩 搦 喏 锘 '), ('O','讴 怄 瓯 耦 '), ('P','葩 杷 钯 筢 俳 蒎 拚 爿 泮 袢 襻 蟠 蹒 彷 滂 逄 螃 匏 狍 庖 脬 疱 辔 '+
'帔 旆 锫 醅 霈 湓 堋 嘭 怦 蟛 丕 仳 陂 陴 邳 郫 圮 埤 鼙 芘 '+
'擗 吡 噼 庀 淠 媲 纰 枇 甓 睥 罴 铍 癖 裨 疋 蚍 蜱 貔 谝 骈 '+
'缏 犏 胼 翩 蹁 剽 莩 嘌 嫖 骠 缥 殍 瞟 螵 苤 氕 姘 嫔 榀 牝 '+
'颦 俜 娉 鲆 叵 陂 鄱 泺 珀 攴 钋 钷 钹 皤 笸 裒 掊 匍 噗 溥 '+
'濮 璞 氆 镤 镨 蹼 '), ('Q','亟 亓 俟 圻 芑 芪 荠 萁 萋 葺 蕲 嘁 屺 岐 岖 汔 淇 骐 绮 琪 琦 杞 桤 '+
'槭 耆 欹 祺 憩 碛 颀 蛴 蜞 綦 綮 蹊 鳍 麒 葜 袷 髂 倩 佥 阡 '+
'芊 芡 茜 荨 掮 岍 悭 慊 骞 搴 褰 缱 椠 犍 肷 愆 钤 虔 箬 箝 '+
'戕 嫱 樯 戗 炝 锖 锵 镪 襁 蜣 羟 跄 劁 诮 谯 荞 峤 愀 憔 缲 '+
'樵 硗 跷 鞒 郄 惬 慊 妾 挈 锲 箧 芩 揿 吣 嗪 噙 廑 溱 檎 锓 '+
'矜 覃 螓 衾 苘 圊 檠 磬 蜻 罄 箐 綮 謦 鲭 黥 邛 茕 穹 蛩 筇 '+
'跫 銎 俅 巯 犰 湫 逑 遒 楸 赇 虬 蚯 蝤 裘 糗 鳅 鼽 诎 劬 苣 '+
'蕖 蘧 岖 衢 阒 璩 觑 氍 朐 祛 磲 鸲 癯 蛐 蠼 麴 瞿 黢 诠 荃 '+
'悛 绻 辁 畎 铨 蜷 筌 鬈 阕 阙 悫 逡 '), ('R','苒 蚺 髯 禳 穰 荛 娆 桡 仞 荏 葚 饪 轫 嵘 狨 榕 肜 蝾 糅 蹂 鞣 蓐 薷 '+
'嚅 洳 溽 濡 缛 铷 襦 颥 朊 芮 蕤 枘 睿 蚋 偌 '), ('S','卅 仨 挲 脎 飒 噻 馓 毵 糁 磉 颡 埽 缫 缲 臊 瘙 鳋 啬 铯 唼 嗄 挲 歃 '+
'铩 痧 裟 霎 鲨 剡 讪 鄯 埏 芟 潸 姗 嬗 骟 膻 禅 钐 疝 蟮 舢 '+
'跚 鳝 垧 绱 殇 熵 觞 劭 苕 潲 杓 蛸 筲 艄 慑 厍 佘 摺 猞 滠 '+
'歙 畲 麝 诜 谂 莘 葚 哂 渖 椹 胂 矧 蜃 嵊 渑 晟 眚 笙 嗜 噬 '+
'仕 侍 恃 谥 埘 莳 蓍 弑 轼 贳 炻 铈 螫 舐 筮 酾 豕 鲥 鲺 狩 '+
'绶 艏 黍 倏 塾 菽 摅 沭 澍 姝 纾 毹 腧 殳 秫 唰 蟀 闩 涮 泷 '+
'孀 蒴 搠 妁 槊 铄 嗣 伺 巳 厮 俟 兕 厶 咝 汜 泗 澌 姒 驷 缌 '+
'祀 锶 鸶 耜 蛳 笥 怂 讼 诵 凇 菘 崧 嵩 忪 悚 淞 竦 薮 嗖 嗾 '+
'馊 溲 飕 瞍 锼 螋 夙 谡 蔌 嗉 愫 涑 簌 觫 稣 蒜 狻 隋 绥 髓 '+
'遂 隧 祟 谇 荽 濉 邃 燧 眭 睢 荪 狲 飧 榫 隼 蓑 嗍 娑 桫 挲 睃 羧 '), ('T','獭 挞 蹋 拓 嗒 闼 溻 漯 遢 榻 沓 铊 趿 鳎 苔 酞 汰 邰 薹 呔 骀 肽 炱 '+
'钛 跆 鲐 檀 痰 潭 谭 毯 袒 叹 郯 澹 昙 忐 钽 锬 镡 傥 帑 溏 '+
'瑭 樘 铴 镗 耥 螗 螳 羰 醣 鼗 啕 洮 韬 焘 饕 忒 忑 慝 铽 藤 '+
'誊 滕 锑 蹄 啼 嚏 涕 剃 屉 倜 荑 悌 逖 绨 缇 鹈 裼 醍 舔 恬 '+
'腆 掭 忝 阗 殄 畋 佻 苕 祧 窕 蜩 笤 粜 龆 鲦 髫 萜 餮 烃 汀 '+
'亭 艇 莛 葶 婷 梃 町 铤 蜓 霆 侗 恫 桐 酮 瞳 彤 捅 佟 仝 垌 '+
'茼 嗵 峒 恸 潼 砼 钭 骰 堍 荼 菟 钍 酴 抟 彖 疃 蜕 忒 煺 饨 '+
'暾 豚 乇 佗 坨 庹 沱 柝 柁 橐 砣 铊 箨 酡 跎 鼍 '), ('W','佤 娲 腽 烷 皖 惋 宛 婉 腕 剜 芄 莞 菀 纨 绾 琬 脘 畹 蜿 罔 尢 惘 辋 '+
'魍 诿 隈 隗 圩 葳 薇 帏 帷 崴 嵬 猥 猬 闱 沩 洧 涠 逶 娓 玮 '+
'韪 軎 炜 煨 痿 艉 鲔 紊 刎 阌 汶 璺 雯 蓊 蕹 斡 倭 莴 喔 幄 '+
'渥 肟 硪 龌 兀 仵 阢 邬 圬 芴 唔 庑 怃 忤 浯 寤 迕 妩 婺 骛 '+
'杌 牾 焐 鹉 鹜 痦 蜈 鋈 鼯 '), ('X','僖 兮 隰 郗 茜 菥 葸 蓰 奚 唏 徙 饩 阋 浠 淅 屣 玺 樨 曦 觋 欷 歙 熹 '+
'禊 禧 皙 穸 裼 蜥 螅 蟋 舄 舾 羲 粞 翕 醯 蹊 鼷 呷 狎 遐 瑕 '+
'柙 硖 瘕 罅 黠 冼 苋 莶 藓 岘 猃 暹 娴 氙 燹 祆 鹇 痫 蚬 筅 '+
'籼 酰 跣 跹 霰 芗 葙 饷 庠 骧 缃 蟓 鲞 飨 哓 崤 潇 逍 骁 绡 '+
'枭 枵 蛸 筱 箫 魈 偕 亵 勰 燮 薤 撷 獬 廨 渫 瀣 邂 绁 缬 榭 '+
'榍 颉 躞 忻 衅 囟 馨 昕 歆 镡 鑫 陉 荇 荥 擤 饧 悻 硎 芎 咻 '+
'岫 馐 庥 溴 鸺 貅 髹 诩 勖 圩 蓿 洫 浒 溆 顼 栩 煦 砉 盱 胥 '+
'糈 醑 儇 谖 萱 揎 泫 渲 漩 璇 楦 暄 炫 煊 碹 铉 镟 痃 薛 谑 '+
'噱 泶 踅 鳕 浚 巽 郇 埙 荀 蕈 獯 恂 洵 浔 曛 窨 醺 鲟 '), ('Y','垭 揠 岈 迓 娅 琊 桠 氩 砑 睚 痖 厣 赝 剡 俨 偃 兖 谳 阽 郾 鄢 芫 菸 '+
'崦 恹 闫 阏 湮 滟 妍 嫣 琰 檐 晏 胭 腌 焱 罨 筵 酽 魇 餍 鼹 '+
'疡 炀 烊 恙 蛘 舀 钥 夭 爻 吆 崾 徭 幺 珧 杳 轺 曜 肴 铫 鹞 '+
'窈 繇 鳐 噎 耶 掖 曳 腋 拽 靥 谒 邺 揶 晔 烨 铘 铱 翌 绎 刈 '+
'劓 仡 佚 佾 诒 圯 埸 懿 苡 荑 薏 弈 奕 挹 弋 呓 咦 咿 嗌 噫 '+
'峄 嶷 猗 饴 怿 怡 悒 殪 轶 贻 欹 旖 熠 眙 钇 镒 镱 痍 瘗 癔 '+
'翊 蜴 舣 羿 翳 酏 黟 胤 鄞 圻 垠 堙 茚 吲 喑 狺 夤 洇 湮 氤 '+
'铟 瘾 窨 蚓 霪 龈 嬴 郢 茔 荥 莺 萦 蓥 撄 嘤 膺 滢 潆 瀛 瑛 '+
'璎 楹 媵 鹦 瘿 颍 罂 臃 痈 雍 踊 咏 泳 恿 俑 壅 墉 喁 慵 邕 '+
'镛 甬 鳙 饔 釉 卣 攸 侑 莠 莜 莸 尢 呦 囿 宥 柚 猷 牖 铕 疣 '+
'蚰 蚴 蝣 蝤 繇 鱿 黝 鼬 禺 毓 伛 俣 谀 谕 萸 菀 蓣 揄 圄 圉 '+
'嵛 狳 饫 馀 庾 阈 鬻 妪 妤 纡 瑜 昱 觎 腴 腧 欤 於 煜 熨 燠 '+
'聿 钰 鹆 鹬 瘐 瘀 窬 窳 蜮 蝓 竽 臾 舁 雩 龉 垸 塬 芫 掾 圜 '+
'沅 媛 瑗 橼 爰 眢 鸢 螈 箢 鼋 龠 瀹 栎 樾 刖 钺 郧 陨 蕴 酝 '+
'晕 韵 郓 芸 狁 恽 愠 纭 韫 殒 昀 氲 熨 '), ('Z','咂 甾 拶 瓒 昝 簪 糌 趱 錾 奘 驵 臧 唣 仄 赜 啧 帻 迮 昃 笮 箦 舴 谮 '+
'缯 甑 罾 锃 揸 吒 哳 喋 楂 砟 痄 蚱 齄 砦 瘵 谵 搌 旃 瘴 仉 '+
'鄣 幛 嶂 獐 嫜 璋 蟑 肇 诏 啁 棹 钊 笊 锗 蔗 谪 摺 柘 辄 磔 '+
'鹧 褶 蜇 赭 甄 砧 臻 贞 侦 枕 疹 圳 蓁 浈 溱 缜 桢 椹 榛 轸 '+
'赈 胗 朕 祯 畛 稹 鸩 箴 帧 诤 峥 徵 钲 卮 陟 郅 埴 芷 摭 帙 '+
'徵 忮 彘 咫 骘 栉 枳 栀 桎 轵 轾 贽 胝 膣 祉 祗 黹 雉 鸷 痣 '+
'蛭 絷 酯 跖 踬 踯 豸 觯 冢 忪 锺 螽 舯 踵 荮 啁 妯 纣 绉 胄 '+
'碡 籀 繇 酎 伫 侏 邾 茱 洙 渚 潴 杼 槠 橥 炷 铢 疰 瘃 褚 竺 '+
'箸 舳 翥 躅 麈 挝 曳 拽 篆 啭 馔 沌 颛 僮 奘 骓 缒 倬 诼 擢 '+
'浞 涿 濯 棹 焯 禚 斫 镯 茈 呲 嵫 姊 孳 缁 梓 辎 赀 恣 眦 锱 '+
'秭 耔 笫 粢 趑 觜 訾 龇 鲻 髭 偬 枞 腙 粽 诹 陬 鄹 驺 鲰 诅 '+
'俎 菹 镞 攥 缵 躜 蕞 撙 樽 鳟 柞 阼 唑 嘬 怍 胙 祚 笮 ')
);
我一起发布,说我回复太长了.呵呵unit SpellFiveInfo;interfaceuses SysUtils; function GetSpell(S:String):String;
function GetFive(S:String):String;//拼音五笔库的声明--------------------------------------------------------------
function WordPYKNo1(s: String): String;
function WordWBKNo1(s: String): String;
function WordWBKNo2(s: String): String;
function WordWBKNo3(s: String): String;implementation//得到拼音----------------------------------------------------------------------
function GetSpell(S:String):String;
var
Str:String;
begin
Result:='Z';
Str:=WordPYKNo1(S);
if Str<>'' then Result:=Str;
end;
//得到五笔----------------------------------------------------------------------
function GetFive(S:String):String;
var
Str1,Str2,Str3: String;
begin
result:= 'Z';
Str1:=WordWBKNo1(s);
Str2:=WordWBKNo2(s);
Str3:=WordWBKNo3(s);
if Str1<>'' then Result:=Str1;
if Str2<>'' then Result:=Str2;
if Str3<>'' then Result:=Str3;
end;
//拼音五笔库--------------------------------------------------------------------
function WordPYKNo1(s: String): String;
begin
result := '';
case WORD(s[1]) shl 8 + WORD(s[2]) of
$B0A1..$B0C4: result := 'a'; $B0C5..$B2C0: result := 'b';
$B2C1..$B4ED: result := 'c'; $B4EE..$B6E9: result := 'd';
$B6EA..$B7A1: result := 'e'; $B7A2..$B8C0: result := 'f';
$B8C1..$B9FD: result := 'g'; $B9FE..$BBF6: result := 'h';
$BBF7..$BFA5: result := 'j'; $BFA6..$C0AB: result := 'k';
$C0AC..$C2E7: result := 'l'; $C2E8..$C4C2: result := 'm';
$C4C3..$C5B5: result := 'n'; $C5B6..$C5BD: result := 'o';
$C5BE..$C6D9: result := 'p'; $C6DA..$C8BA: result := 'q';
$C8BB..$C8F5: result := 'r'; $C8F6..$CBF9: result := 's';
$CBFA..$CDD9: result := 't'; $CDDA..$CEF3: result := 'w';
$CEF4..$D1B8: result := 'x'; $D1B9..$D4D0: result := 'y';
$D4D1..$D7F9: result := 'z';
else
begin
if trim(s) = '亍' then begin result := 'c'; exit; end;
if trim(s) = '丌' then begin result := 'j'; exit; end;
if trim(s) = '兀' then begin result := 'w'; exit; end;
if trim(s) = '丐' then begin result := 'g'; exit; end;
if trim(s) = '廿' then begin result := 'n'; exit; end;
if trim(s) = '卅' then begin result := 's'; exit; end;
if trim(s) = '丕' then begin result := 'p'; exit; end;
if trim(s) = '亘' then begin result := 'g'; exit; end;
if trim(s) = '丞' then begin result := 'c'; exit; end;
if trim(s) = '鬲' then begin result := 'g'; exit; end;
if trim(s) = '孬' then begin result := 'n'; exit; end;
if trim(s) = '噩' then begin result := 'e'; exit; end;
if trim(s) = '禺' then begin result := 'y'; exit; end;
if trim(s) = '匕' then begin result := 'b'; exit; end;
if trim(s) = '乇' then begin result := 't'; exit; end;
if trim(s) = '夭' then begin result := 'y'; exit; end;
if trim(s) = '爻' then begin result := 'y'; exit; end;
if trim(s) = '卮' then begin result := 'z'; exit; end;
if trim(s) = '氐' then begin result := 'd'; exit; end;
if trim(s) = '囟' then begin result := 'x'; exit; end;
if trim(s) = '胤' then begin result := 'y'; exit; end;
if trim(s) = '馗' then begin result := 'k'; exit; end;
if trim(s) = '毓' then begin result := 'y'; exit; end;
if trim(s) = '睾' then begin result := 'g'; exit; end;
if trim(s) = '鼗' then begin result := 't'; exit; end;
if trim(s) = '亟' then begin result := 'j'; exit; end;
if trim(s) = '鼐' then begin result := 'n'; exit; end;
if trim(s) = '乜' then begin result := 'n'; exit; end;
if trim(s) = '乩' then begin result := 'j'; exit; end;
if trim(s) = '亓' then begin result := 'q'; exit; end;
if trim(s) = '芈' then begin result := 'm'; exit; end;
if trim(s) = '孛' then begin result := 'b'; exit; end;
if trim(s) = '啬' then begin result := 's'; exit; end;
if trim(s) = '嘏' then begin result := 'g'; exit; end;
if trim(s) = '仄' then begin result := 'z'; exit; end;
if trim(s) = '厍' then begin result := 's'; exit; end;
if trim(s) = '厝' then begin result := 'c'; exit; end;
if trim(s) = '厣' then begin result := 'y'; exit; end;
if trim(s) = '厥' then begin result := 'j'; exit; end;
if trim(s) = '厮' then begin result := 's'; exit; end;
if trim(s) = '靥' then begin result := 'y'; exit; end;
if trim(s) = '赝' then begin result := 'y'; exit; end;
if trim(s) = '叵' then begin result := 'p'; exit; end;
if trim(s) = '匦' then begin result := 'g'; exit; end;
if trim(s) = '匮' then begin result := 'k'; exit; end;
if trim(s) = '匾' then begin result := 'b'; exit; end;
if trim(s) = '赜' then begin result := 'z'; exit; end;
if trim(s) = '卦' then begin result := 'g'; exit; end;
if trim(s) = '卣' then begin result := 'y'; exit; end;
if trim(s) = '刈' then begin result := 'y'; exit; end;
if trim(s) = '刎' then begin result := 'w'; exit; end;
if trim(s) = '刭' then begin result := 'y'; exit; end;
if trim(s) = '刳' then begin result := 'k'; exit; end;
if trim(s) = '刿' then begin result := 'g'; exit; end;
if trim(s) = '剀' then begin result := 'k'; exit; end;
if trim(s) = '剌' then begin result := 'l'; exit; end;
if trim(s) = '剞' then begin result := 'j'; exit; end;
if trim(s) = '剡' then begin result := 's'; exit; end;
if trim(s) = '剜' then begin result := 'w'; exit; end;
if trim(s) = '蒯' then begin result := 'k'; exit; end;
if trim(s) = '剽' then begin result := 'p'; exit; end;
if trim(s) = '劂' then begin result := 'j'; exit; end;
if trim(s) = '劁' then begin result := 'q'; exit; end;
if trim(s) = '劐' then begin result := 'h'; exit; end;
if trim(s) = '劓' then begin result := 'y'; exit; end;
if trim(s) = '罔' then begin result := 'w'; exit; end;
if trim(s) = '仃' then begin result := 'd'; exit; end;
if trim(s) = '仉' then begin result := 'z'; exit; end;
if trim(s) = '仂' then begin result := 'l'; exit; end;
if trim(s) = '仨' then begin result := 's'; exit; end;
if trim(s) = '仡' then begin result := 'g'; exit; end;
if trim(s) = '仫' then begin result := 'm'; exit; end;
if trim(s) = '仞' then begin result := 'r'; exit; end;
if trim(s) = '伛' then begin result := 'y'; exit; end;
if trim(s) = '仳' then begin result := 'p'; exit; end;
if trim(s) = '伢' then begin result := 'y'; exit; end;
if trim(s) = '佤' then begin result := 'w'; exit; end;
if trim(s) = '仵' then begin result := 'w'; exit; end;
if trim(s) = '伥' then begin result := 'c'; exit; end;
if trim(s) = '伧' then begin result := 'c'; exit; end;
if trim(s) = '伉' then begin result := 'k'; exit; end;
if trim(s) = '伫' then begin result := 'z'; exit; end;
if trim(s) = '佞' then begin result := 'n'; exit; end;
if trim(s) = '佧' then begin result := 'k'; exit; end;
if trim(s) = '攸' then begin result := 'y'; exit; end;
if trim(s) = '佚' then begin result := 'y'; exit; end;
真晕了
[email protected]
也能发我吗?
[email protected]
好东西大家分享!!谢谢~~
create procedure usp_yy_getpyzt
@inputstr varchar(255),
@pybz smallint,
@outputstr varchar(255) output
asset nocount onbegin
declare @chzchar varchar(2),
@chz varchar(2),
@cpy varchar(255),
@i integer,
@bsm varchar(2) select @inputstr=ltrim(rtrim(@inputstr))
select @cpy='',
@chz='',
@chzchar='',
@i=1
while @i<=datalength(@inputstr)
begin
select @chzchar=substring(@inputstr,@i,1)
if ascii(@chzchar)>127
begin
if @chz=''
select @chz=@chzchar
else
select @chz=@chz+@chzchar
end
else if @chzchar is Null
begin
break
end
else if ascii(@chzchar) between 48 and 57
begin
select @cpy=@cpy+(case ascii(@chzchar) when 48 then 'l' when 49 then 'y' when 50 then 'e'
when 51 then 's' when 52 then 's' when 53 then 'w' when 54 then 'l' when 55 then 'q'
when 56 then 'b' when 57 then 'j' end)
select @chz=''
end
else if (ascii(@chzchar) between 65 and 90) or (ascii(@chzchar) between 97 and 122)
begin
select @cpy=@cpy+rtrim(ltrim(lower(@chzchar)))
select @chz=''
end if datalength(@chz)=2
begin
if exists(select * from hzpytmp where bhz=@chz)
begin
if @pybz=0
select @bsm=bsm from hzpytmp where bhz=@chz
else
select @bsm=wbm from hzpytmp where bhz=@chz
select @cpy=@cpy+ltrim(rtrim(@bsm))
end
-- else
-- select @cpy=@cpy+'*' select @chz=''
end
select @i=@i+1
end select @outputstr=ltrim(rtrim(@cpy))
return
end
go
---------
table hzpytmp
bsm bhz wbm
---- ---- ----
l 0 l
y 1 y
e 2 e
s 3 s
s 4 s
w 5 w
l 6 l
q 7 q
b 8 b
j 9 j
l 0 l
y 1 y
e 2 e
s 3 s
s 4 s
w 5 w
l 6 l
q 7 q
b 8 b
j 9 j
a A a
b B b
c C c
d D d
e E e
f F f
g G g
h H h
i I i
j J j
k K k
l L l
m M m
n N n
o O o
p P p
q Q q
r R r
s S s
t T t
u U u
v V v
w W w
x X x
y Y y
z Z z
a 啊 k
a 阿 b
a 埃 f
a 挨 r
a 哎 k
a 唉 k
a 哀 y
a 皑 r
a 癌 u
a 蔼 a
a 矮 t
a 艾 a
a 碍 d
a 爱 e
a 隘 b
a 鞍 a
a 氨 r
a 安 p
a 俺 w
a 按 r
a 暗 j
a 岸 m
a 胺 e
a 案 p
a 肮 e
a 昂 j
a 盎 m
a 凹 m
a 敖 g
a 熬 g
a 翱 r
a 袄 p
a 傲 w
a 奥 t
a 懊 n
a 澳 i
b 芭 a
b 捌 r
b 扒 r
b 叭 k
b 吧 k
b 笆 t
b 八 w
b 疤 u
b 巴 c
b 拔 r
b 跋 k
b 靶 a
b 把 r
b 耙 d
b 坝 f
b 霸 f
b 罢 l
b 爸 w
b 白 r
b 柏 s
b 百 d
b 摆 r
.....