摘要： 这几天在移植代码，将之前的项目移植到插件框架里面，因为之前是单EXE的。对内存泄漏问题不是很在意。在DLL下面就不一样了，所以加入FastMM4来做监控调试。发现之前的ScripParser解析SQL时存在内存泄漏。 其中有段代码 var lvItem : TSuperObjectIter;begin if ObjectFindFirst(vParam, lvItem) then try repe... 阅读全文

摘要： (转)------------------------------------------- 1、例子解析 for i := 0 to xls.Sheets[m].lastrow do //**** i定义的是行,lastrow是最大行号，是从0开始的行号，而不是 行数，如按count计算会少计算一行。 for j := 0 to xls.Sheets[m].LastCol do //****j... 阅读全文

摘要： 用来保存计算最终结果的数据库是整个信息系统的重要组成部分，技术也相对成熟。然而，对于所有数据库而言，除了记录正确的处理结果之外，也面临着一些挑战：如何提高处理速度，数据可用性、数据安全性和数据集可扩性。将多个数据库联在一起组成数据库集群来达到上述目标应该说是一个很自然的想法。 集群（Cluster）技术是使用特定的连接方式，将价格相对较低的硬件设备结合起来，同时也能提供高性能相当的任务处理能力。本... 阅读全文

摘要： DELETE FROM货品表 WHERE [货品ID] IN --删除找出的ID( ----GROUP BY先按照[货品编号],[货品名称]字段分组，并统计最大的[货品ID]，随意找一个ID,并用Having 过滤掉大于1的(重复记录) SELECT MAX([货品ID]) FROM 货品表 GROUP BY[货品编号],[货品名称] HAVING COUNT([货品ID])>1) 阅读全文

摘要： 以前一直想在网上找一个，没有达到自己要求的. http://files.cnblogs.com/DKSoft/JsonFormater.rar 以前想写一个发现superobject序列化出来的为乱码。这几天弄过superobject的排序后，可以控制so.asjson出来的顺序，写一个共享EXE。功能挺简单，但也够用了。 阅读全文

摘要： 我们可以用用例图可客户打交道，可以确认是否是用户所需要的， 接下来我们需要做更详细的设计。 可能会用到 活动图(Activity Diagram) : 可以清楚的表述动作的流程，流向 序列图(Sequence Diagram) : 详细的动作过程顺序设计 交互图(Collboration Diagram) : 各个动作直接的交互 序列图和交互图是可以互为转换(没有测试过)，只是表现出来的角度不一样... 阅读全文

摘要： 一个项目的开始先有需求，这个需求不管是直接客户提出还是由上级提出。 对应到rose里面就是用例图。 用例图分为use-case(用例也叫系统用例)和Business Use-Case(业务用例) 这两者的区别，简单的来说 业务用例和系统用例是分别站在客户的业务视角和系统建设视角来规划的。业务用例不是接近，而是完全的直接需求，系统用例也不是业务逻辑的详细划分，而是系统对需求的实现方式，但不是与程序设... 阅读全文

摘要： 经过对代码的更深入的跟踪理解，发现了superobject采用的是平衡二叉树的方式保存数据的。 首先看看保存数据的类 TSuperAvlEntry = class private FGt, FLt: TSuperAvlEntry; FGt和FLt分别是保存通过比较(比较hash或者比较key的asc)大的保存在Gt,小的保存在Lt，是一个二叉树链表。 先上图 假如有如下Json "assign": { "FAreaKey": "FKey", "FAreaName": "FName", 阅读全文

摘要： functionTSuperAvlTree.Search(constk:SOString;st:TSuperAvlSearchTypes):TSuperAvlEntry;varcmp,target_cmp:integer;match_h,h:TSuperAvlEntry;ha:Cardinal;beginha:=TSuperAvlEntry.Hash(k);match_h:=nil;h:=FRoot;if(stLessinst)thentarget_cmp:=1elseif(stGreaterinst)thentarget_cmp:=-1elsetarget_cmp:=0;while(h< 阅读全文

摘要： 在superObject中添加排序类型type //add By Mofen TSOSortMode = (sosmDefault {默认的方式}, sosmAdd {添加的顺序}, sosmASC {升序}, sosmDesc {降序});添加全局设置方法var nowSortMode: TSOSortMode = sosmDefault;//设置排序模式 Mofenprocedure SetSOSortMode(pvSortMode: TSOSortMode);begin nowSortMode := pvSortMode;end;需要改造的类主要为TSuperAvlTree其中需要改造的 阅读全文