双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

查询汉字拼音码的问题

2005-10-10 04:53:44 250 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

phoenix_l 墨衍会员 · AI 创作全网分发关注 + 加入社区

C语言实现单链表的创建、增、删、改、查、逆序、冒泡排序链表相关操作： //创建一个链表，并进行增删改查定义结构体： typedef struct Node { int data; struct Node *next; }Linklist; 1.主函数相关调用语句 int main() { int num=0; Linklist * phead=NULL; puts("请输入需要创建的节点数"); scanf("%d",&num); create_list(&phead,num); //通过指针的指针进行头指针的改变 tra 阅读详情

抓狂了，在安装了微软拼音输入法2003之后，ImmGetConversionList函数就只能返回0了。这到底是怎么回事？

...全文

c语言输入20个数，从小到大建立一个单链表一、要求输入20个数，按照从小到大的顺序存入链表中，可以分四步:获取数据、进行排序、插入链表、打印链表。 1.定义一个整型数组，用来存储获得的20个数： int a[20]; int i; for(i=0;i<20;i++) { scanf("%d ",a[i]); } 2.对获得的20个数进行排序，排序算法很多，但我都不熟，暂时用最容易理解的冒泡排序： int j,temp; for(i=0;i<19;i++)//20个数，则外循环19次 { for(j=19;j& 阅读详情

phoenix_l

Windows SDK/API 1,184 成员 22,326 内容

+ 关注 + 加入社区

切换为时间正序

JACKEY 2005-11-08

打赏
举报

看看获取汉字拼音组件 v4.1
相关代码：
function GetHzPy(HzChar: PChar; Len: Integer): String;
var
C: Char;
Index: Integer;
begin
Result := '';
if (Len > 1) and (HzChar[0] >= #129) and (HzChar[1] >= #64) then
begin
//是否为 GBK 字符
case HzChar[0] of
#163: // 全角 ASCII
begin
C := Chr(Ord(HzChar[1]) - 128);
if C in ['a'..'z', 'A'..'Z', '0'..'9', '(', ')', '[', ']'] then
Result := C
else
Result := '';
end;
#162: // 罗马数字
begin
if HzChar[1] > #160 then
Result := CharIndex[Ord(HzChar[1]) - 160]
else
Result := '';
end;
#166: // 希腊字母
begin
if HzChar[1] in [#$A1..#$B8] then
Result := CharIndex2[Ord(HzChar[1]) - $A0]
else if HzChar[1] in [#$C1..#$D8] then
Result := CharIndex2[Ord(HzChar[1]) - $C0]
else
Result := '';
end;
else
begin // 获得拼音索引
Index := PyCodeIndex[Ord(HzChar[0]) - 128, Ord(HzChar[1]) - 63];
if Index = 0 then
Result := ''
else
Result := PyMusicCode[Index];
end;
end;
end
else if Len > 0 then
begin
//在 GBK 字符集外, 即半角字符
if HzChar[0] in ['a'..'z', 'A'..'Z', '0'..'9', '(', ')', '[', ']',
'.', '!', '@', '#', '$', '%', '^', '&', '*', '-', '+',
'<', '>', '?', ':', '"'] then
Result := HzChar[0]
else
Result := '';
end;
end;

phoenix_l 2005-10-10

打赏
举报

我这里的机器都装了office2003的，所以没有办法试。:(

我的目的就是想取得汉字的拼音码，使用微软的拼音输入法，在以下的语句中：
if ImmGetConversionList(Hkb, 0, PChar(myString), @szBuffer, SizeOf(szBuffer), GCL_REVERSECONVERSION) > 0 then 判断的时候，每次这个语句都返回0，简直让人郁闷啊。

leonkim 2005-10-10

打赏
举报

呵，没遇到过。楼主在别的机器上试试呢？

✦双11狂欢大促✦

查询汉字拼音码的问题

相关推荐

双11狂欢大促