SAP Whittle专栏

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

DBGRID这么写，先加一个TApplicationEvents,  procedure  TForm1.ApplicationEvents1Message(var  Msg:  tagMSG;  var  Handled:  Boolean);  begin  if  (DBGrid1.Focused)  And  (Msg.message  =  WM_MOUSEWHEEL)  then  b