zisongjia的博客

原创 Android异常解决--A WebView method was called on thread 'JavaBridge'. All WebView methods must be called

Android异常解决--A WebView method was called on thread 'JavaBridge'. All WebView methods must be called android端调用js. 使用webView.loadUrl("javascript: alert(" + data +")"); 出现异常.异常log如下：W/WebView(2088): jav...

原创 delphi中报Left side cannot be assigned to错的解决办法

 似乎在Delphi2007版本的常量好像是可以修改的。你可能使用的是Delphi2007以后的版本。而在Delphi2007以后可以通过以下方法来修改常量：    方法一：    在单元文件开头加上{$J+}就可以，例如：unit Unit1; {$J+} interface 方法二：        Project---> Options--> Compiler---&g...

原创 delphi 中 dxdbgrid 中customdraw改变符合条件的行字体或者背景颜色

交流QQ:26097151191、如果数据库中字段值为null 使用Anode，values[字段] <> ''，可能会报 (null) not into ……(string)的错误解决办法就是: ANode.values[15] <> null  且要引用单元 Variants2、用ado.fieldbyname('字段').asstring 也会导致颜色控制不准确的问题...

原创 Delphi中currery和double比较解析问题说明

交流学习：2609715119由于currery和double属于不同的字段类型，因此在明面上虽然都是一样的，例如：0.2，但是double类型的0.2会大于currery类型的0.2.解决这样的问题就需要一个comparevalue数学函数进行强制转换进行比较。comparevalue的具体用法请参看博客：comparevalue用法...

原创 delphi 导入Excel到数据库

procedure Tfrmchanpin_daoru.btn2Click(Sender: TObject);////////////////////////////////////////// uses Comobj; //// Excel 导入到数据库 //// 高文杰 2009.6.22 ...

原创 Delphi中edit焦点切换到Richedit 控件上报错：Richedit line insertion error（解决办法）

原创 delphi MDI的意思以及 闪烁问题的解决办法

windows界面的一种形式。windows界面通常有三种形式，即多文档（mdi）界面、单文档（sdi）界面、杂合界面；procedure TMainForm.CreateMDIChild(const Name: string); var Child: TMDIChild; begin { create a new MDI child window } Perform(WM_...

原创 Delphi解决点击主屏左侧图片按钮图片闪烁厉害的问题。

交流QQ:2609715119加上锁屏控制就会好点：   lockwindowupdate(form1.handle);  Notebook1.ActivePage := '3';  lockwindowupdate(0);  在主窗口resize 事件里开头和结尾加上：  SendMessage(Form1.Handle, RDW_INVALIDATE + RDW_ALLCHILDREN + R...

原创 同时开发access数据库和sql server数据库软件时注意事项

交流QQ:2609715119注意点：  不要将自增长id设置为主键关联其它表原因：  假如其中一个id数据被删除了，将这个数据库转换为另一种数据库，id就会重新排序，这样就导致数据的错乱...

原创 Delphi回车键切换焦点

交流QQ:2609715119procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;    Shift: TShiftState);  begin    if Key = vk_Return then      FindNextControl(ActiveControl,True,False,False).SetFocus;  e...

原创 Delphi判断焦点在哪个控件上的方法

交流QQ:2609715119Activecontrol.name 获取Delphi焦点所在的控件

原创 delphi 中CompareValue用法及比较两个相同的值但却提示不相等的问题解决办法

交流QQ:2609715119CompareValue中的参数类型只能是Integer、Int64、Single、Double、Extended但是一个CompareValue函数中的参数类型要一致，否者即使看上去一样但是比较结果也不一样/ 比较两个相等的浮点数  case CompareValue(A, B) of    LessThanValue    : ShowMessage('A &lt...