摘要：
procedureCopyGridRecordToJsn(pvDataSet:TcxGridDBTableView;pvValueJsn:ISuperObject);vari,j:Integer;lvField:TcxGridDBColumn;lvItem:ISuperObject;beginwithpvDataSet,DataControllerdobeginfori:=0toController.SelectedRecordCount-1dobeginlvItem:=SO();tryforj:=0topvDataSet.ColumnCount-1dobeginlvField:=pvData 阅读全文
摘要：
1--A段2----------------------3selectso_d.*,4c_bf.FApproveState5fromsal_OrderListso_d6leftjoinbas_Bombom_m7on(so_d.FMaterialKey=bom_m.FMaterialKey8andso_d.FColorKey=bom_m.FColorKey)9innerjoincom_BillInfoc_bf10on(bom_m.FFormKey=c_bf.FFormKey)11and(c_bf.FApproveState=1)1213--B段14----------------------15 阅读全文
摘要：
虽然不能完全避免死锁，但可以使死锁的数量减至最少。将死锁减至最少可以增加事务的吞吐量并减少系统开销，因为只有很少的事务： 回滚，而回滚会取消事务执行的所有工作。 由于死锁时回滚而由应用程序重新提交。 下列方法有助于最大限度地降低死锁： 按同一顺序访问对象。 避免事务中的用户交互。 保持事务简短并在一个批处理中。 使用低隔离级别。 使用绑定连接。 按同一顺序访问对象如果所有并发事务按同一顺序访问对象，则发生死锁的可能性会降低。例如，如果两个并发事务获得 Supplier 表上的锁，然后获得 Part 表上的锁，则在其中一个事务完成之前，另一个事务被阻塞在 Supplier 表上。第一个事务提交或 阅读全文
摘要：
（类似于2003及之前版本中的背面逆序）安装好word之后最需要设置的有：改写模式、打印选项、输入法控制处于活动状态。在用word2003时，为了使手动双面打印的最终结果是正序的，而且打印背面时不用整理纸张次序，设置方法非常简单，只要打开对话框左下角的“选项…”。如下图所示：在弹出的对话框中选中“双面打印选项”中的“纸张背面”，点“确定”，这样打印偶数页的时候就可以实现自动逆序打印了。以后，只需在“打印”对话框里选中“手动双面打印”即可。使用Word 2007和Word 2010时，有点儿麻烦：需在Word窗口中，点“文件”——“选项”——“高级”——“打印”，同时勾选上“逆序打印页面”和“在 阅读全文
摘要：
var lvItem:ISuperObject;begin lvItem:=SO('""'); //"" lvItem.S['count'] := 0; //这里创建了一个superobject对象。但是没有关联在lvItem里面 lvItem := nil; //这里释放的时候lvItem中没有对象end;//关闭程序后内存泄漏. 阅读全文
摘要：
uses TypInfo; procedure TfrmMain.actFormatExecute(Sender: TObject); var lvDataType :TTypeKind; begin lvDataType := tkUnknown; ShowMessage(getenumname(typeinfo(TTypeKind), Ord(lvDataType))); 阅读全文
摘要：
这几天查内存泄漏，发现编辑窗体弹出后，出现了内存泄漏。 原来以为是编辑窗体的问题。经过排查发现是编辑窗体关闭后reOpen的时候 因为需要记录原有数据集的位置所以用到了BookMark 现在用了FastMM 发现之前的写法有问题 var lvBookMark:Pointer begin lvBookMark:=cdsMain.GetBookMark; try …… finally if... 阅读全文
摘要：
//接上次讨论 //测试代码如下 procedure TForm1.btnRaiseTestClick(Sender: TObject); var lvIntf2: ITest; lvVIList: TVIList; begin lvVIList := TVIList.Create(false); //不使用List管理接口对象生命周期 try //+1 lvVIList.Add('a... 阅读全文
摘要：
为什么用接口老是会AV错误？可能很多人会碰到这样的问题。有些人干脆抛弃用接口来管理对象的生命周期。我想如果搞清楚接口何时会增加和减少计数应该会掌控到接口何时会销毁对象从而解决av根本。做了一个测试 procedure TForm1.btnAddInterfaceClick(Sender: TObject); var lvITest: ITest; begin //+1 lvITest := TTestIntfObject.Create; //+1 FVIList.Add('abc', lvITest); //-1 lvITest := nil; end;FVIList是自己写的 阅读全文
摘要：
EhLibADO, initialization RegisterDatasetFeaturesEh(TADOSQLDatasetFeaturesEh, TADOQuery); RegisterDatasetFeaturesEh(TADOCommandTextDatasetFeaturesEh, TCustomADODataSet); EhLibCDS initialization {$I... 阅读全文