delphi中间件

摘要： procedure CreateSumFooter(cxTableView: TcxGridDBTableView; const fieldList: string);var i: Integer; f: TcxGridDBTableSummaryItem; l: TStringList;begin l := TStringList.Create; l.DelimitedText := fieldList; l.Delimiter := ','; cxGrid1DBTableView1.OptionsView.Footer := True; for i := 0 to cxGr 阅读全文

摘要： 把cxGridView里OptionsView选项中的两项修改成如下 OptionsView.Indicator = True OptionsView.IndicatorWidth = 40//宽度在customDrawIndicatorCell事件中填写procedure TForm1.cxGri... 阅读全文

摘要： 插件框架，所有的插件及主EXE工程设置中都要选择BUILD WITH RUNTIME PACKAGE选项，然后指定需要哪些运行时包（包括VCL自带的，其它三方的控件）。在程序开发和发布的时候都要把这些运行时包（.bpl）放在主exe能够搜索到的目录中。rtl;vcl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;te 阅读全文

摘要： 核心价值：精准报价、清晰库存专门为个体商家量身打造的管理软件，他突破性的采用了客户端本地业务管理与互联网搜索及应用相结合的方式，以货品价格搜索和库存管理为基础，统一管理个体工商户的报价、库存、往来及收支，解决个体工商户日常经营中一直存在的商品太多无法记住价格及库存的问题，完美实现“精准报价、清晰库存”的核心价值；同时，系统中创新引入“行业产品库”，真正实现信息化系统免初始化的客户理念。产品特点：商品资料智能添加初次使用智慧记的用户无需录入大量的货品资料，可实现货品资料的批量导入，导入方式可以选择从 EXCEL导入或行业产品库导入，真正实现信息化系统免初始化的客户理念。商品价格智能搜索系统可以搜 阅读全文

摘要： uses Contnrs;TQueue队列，先进先出TStack堆栈,后进先出 TObjectQueue = class(TQueue) public function Push(AObject: TObject): TObject; function Pop: TObject; function Peek: TObject; end; TObjectStack = class(TStack) public function Push(AObject: TObject): TObject; function Pop: TObject; function Peek: TObject; end; 阅读全文

摘要： 服务端与客户端绝对是两码事。在客户端我们提倡 Create/New 和 Free/Dispose，随用随申请，不用即释放。但在服务端要尽量避免这样做。在客户端可以随时使用 string 类型，但在服务端也必须尽量避免使用 string 。string使用起来异常方便，但我们看看编译后的代码恐怕就会只冒冷汗：原来编译器为string的方便做了那么多额外的工作。客户端要为客户解决内存，但服务端能“浪费”则“浪费”。“玩服务器就是玩内存”。 内存管理不当就会造成内存泄漏和内存碎片。对于客户端而言，内存碎片几乎不算是问题。内存泄漏那么一点点也可以接受。但对于 24 * 7 的服务器而言，这却绝对致命关 阅读全文

摘要： The data types allowed to be transfered in DataSnap 2009 is limited to the dbExpress data types, but in DataSnap 2010 part of Delphi 2010 you are allowed to transfer any kind of object.Let’s define the object we would like to transfer, class TCustomerunit Customer;interfaceuses DBXJSON, DBXJSONRefle 阅读全文

摘要： typeTMember = recordName : string[50];eMail : string[30];Posts : LongInt;end;var Members : array[1..50] of TMember;var F : file of TMember;write datavarF : file of TMember;i : integer;beginAssignFile(F,'members.dat') ;Rewrite(F) ;tryfor j:= 1 to 50 doWrite (F, Members[j]) ;finallyCloseFile(F 阅读全文

摘要： function UnicodeEncode(Str:string;CodePage:integer):WideString;var Len:integer;begin Len:=Length(Str)+1; SetLength(Result,Len); Len:=MultiByteToWideChar(CodePage,0,PChar(Str),-1,PWideChar(Result),Len); SetLength(Result,Len-1); //end is #0end;function UnicodeDecode(Str:WideString;CodePage:integer):st 阅读全文

摘要： 1.创建一个全局的HASH表initialization g_hash := THashedStringList.Create;finalization FreeAndNil(g_hash);2.往全局HASH表里面写入 INI文件的指定小节(字符串定义集中放在一个小节里面)读取到的所有行，每次更选择语言以后都要执行此操作。ini.ReadSectionValues('messages', g_hash);3.所有需要使用字符串变量从这个全局HASH表中检索function GetHashStr(const key: string): string;begin Result : 阅读全文