摘要： procedure TMyService.ServiceAfterInstall(Sender: TService); var reg: TRegistry; begin reg := TRegistry.Create; try with reg do begin RootKey := HKEY_LOCAL_MACHINE; if OpenKey('SYSTEM\CurrentCont... 阅读全文

摘要： 来自: wishme3, 时间: 2005-06-22 15:23:00, ID: 3110622 var CommStr:string; begin CommStr:=MyComm.readcomm;//假如CommStr是每次收到的串口数据 //现在要求把CommStr的数据写到一个文本文件里,保存到c:\log.txt中 end; 谁有代码吗? 来自: xianguo, 时间: 2005-0... 阅读全文

摘要： 我在工作中，接触到印度软件公司开发出来的软件：　　整个体系架构非常清晰，按照我们的要求实现了全部功能，而且相当稳定。但是打开具体的代码一看，拖沓冗长，水平不咋样。我们自己的一些程序员就有怪话了，说他们水平真低。但是！印度人能够把软件整体把握得很好，能够完成软件，并得到相当好的设计文档。　　而中国人在那里琢磨数据结构、算法，界面人员就还没编码就想着是Outlook式的还是VisualStudio式的... 阅读全文

摘要： //每页大小ADOQuery1.Recordset.PageSize:=30;//指向页码ADOQuery1.Recordset.AbsolutePage:=2;//页码数量ADOQuery1.Recordset.PageCount 阅读全文

摘要： var Root,Xdn:IXMLDomNode;begin XMLDocument1.LoadFromFile(template.xml'); Root:=(XMLDocument1.DocumentElement.DOMNode as IXMLDOMNodeRef).GetXMLDOMNode; Xdn:=Root.selectSingleNode("xpathquery"); 阅读全文

摘要： 假设有表TableA，字段为FieldA, FieldB，查询第10到20条记录，SQL如下：select * from ( select row_number() over(order by FieldA) as RowNum, * from TableA ) t where t.RowNum between 10 and 20 阅读全文

摘要： 本例在 Delphi 2007 和 Delphi 2009 中均调试通过, 运行效果图:代码文件:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: T... 阅读全文

摘要： //绝对值: Absvard: Real;v: Variant;begind := Abs(-1.2);ShowMessage(FloatToStr(d)); {1.2}v := '-100';ShowMessage(v); {-100; v 是变体类型无需转换}v := Abs(v);ShowMessage(v); {100; 如果变量的确是个数字, 变体类型也是可以取绝对值}end;//返回整... 阅读全文

摘要： 测试效果图:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;Memo1: TMemo;procedure Button1Click(... 阅读全文

摘要： 如果参数在函数中不可能修改, 一定要使用 const;不然, 编译器就会:假定先修改, 先要备份; 使用前后要增减引用计数; 还要套上 try finally.指定了 const 就可以避免以上过程从而提高效率.测试效果图:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Contro... 阅读全文