![](https://img-blog.csdnimg.cn/20201014180756928.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
delphi数据库开发
文章平均质量分 71
caixiaoming
这个作者很懒,什么都没留下…
展开
-
1。获取汉字的笔划
function GetBiHua(chnstr:String):integer;constBiHuaTable=#10#7#10#10#8#10#9#11#17#14#13#5#13#10#12#15+#10#6#10#9#12#8#10#10#8#8#10#5#10#14#16#9+#12#12#15#15#7#10#5#5#7#10#2#9#4#8#12#13+#7#10#7#21#10原创 2006-04-14 20:09:00 · 777 阅读 · 0 评论 -
2。如何在DBGRID或者STRINGGRID中实现用滚轮进行翻页的功能
DBGRID这么写,先加一个TApplicationEvents, procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); begin if (DBGrid1.Focused) And (Msg.message = WM_MOUSEWHEEL) then b原创 2006-04-14 20:11:00 · 750 阅读 · 0 评论