摘要： 在project/view source里编辑。利用Windows系统的全局原子全局原子 利用向系统添加全局原子的方法，全局原子由Windows 系统负责维持，它能保证其中的每个原子都是唯一的，管理其引用计数，并且当该全局原子的引用计数为0时，从内存中清除。我们用GlobalAddAtom 函数向全局原子添加一个255个字节以内的字符串，用GlobalFindAtom来检查是否已经存在该全局原子，... 阅读全文

摘要： 创建IXMLDOMDocument对象的三种方法：(1)[方法1] 直接创建 IXMLDOMDocument , 例(1) uses msxml; var DOC:IXMLDOMDocument; doc := CoDOMDocument.create; ..... Doc := nil;A)doc.load('C:\temp.xml'); //从文件载入B) 动态创建 var aElement... 阅读全文

摘要： 1. Text：要显示的讯息2. Caption：讯息视窗的标题列文字3. Flags：讯息旗标 3.1. 可指定讯息视窗上的图示 3.2. 可指定讯息视窗出现的按钮 3.3. 可指定预设Focus在哪一个按钮 3.4. 可指定是否 Modal 3.5. 其他引数说明：Text、Caption 引数为 PCahr 型态，字串型态的变数可用 PChar()转换，若直接传入一个字串的话，就不用转型。例... 阅读全文

摘要： 现在来说一下调用过程：【本地调试通过，环境是XP，delphi7.0,vs2005】 首先在vs2005中创建一Class Library项目，添加2个cs文件，代码分别为：声明一个接口1usingSystem;2usingSystem.Collections.Generic;3usingSystem.Text;4namespacebeep_Class5{6publicinterfaceIGO7{... 阅读全文

摘要： 由于从 Delphi2005开始支持中文标识符，在编写 PASCAL 词法分析器的过程中遇到了这个问题，经过多次试验找到了解决方案，至今未发现问题。代码如下：view plainprint?//判断字符是否是汉字functionIsHZ(ch:WideChar):boolean;vari:integer;begini:=ord(ch);if(i<19968)or(i>40869)the... 阅读全文

摘要： 有关开发习惯的一些想法，如鲠在喉，不吐不快。究其发贴动机，当然不排除有骗取参与分的可能，但另一方面，也希望能给同行（念Xing）者提供一些建议，或者参考(希望不是误人子弟)。同时，也希望各位能够就我的这些陋习，发表一点看法，给出批评和指正的意见。谢谢。一．建立工程目录首先，第一步要做的，当然是给新项目建一个单独的目录（别笑）。目录名称与项目名称同名，或者另取一个也可，只要清楚、简练。然后，在此目录... 阅读全文

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button2: TButton; Button3: TButton; OpenDialog1: TOpenD... 阅读全文

摘要： close关闭窗体，对象仍然存在，调用Close函数释放资源后可能还需要再次使用。 dispose，销毁对象，窗体对象被回收了，也就是不存在了，Dispose函数释放的资源不再使用。application.exit.整个程序进程结束，项目中的所有对象都会被销毁，退出整个应用程序。注：在MDI情况下会有所不同。在这种情况下，您需要手动调用Dispose，将窗体的所有控件都标记为进行垃圾回收。Clos... 阅读全文

摘要： 动态添加Buttonprocedure TForm1.Button1Click(Sender: TObject);var NewItemLink: TdxBarItemLink; kk: TdxBarSubItem; MyBtn: TdxBarButton;begin MyBtn := TdxBarButton.Create(Self); MyBtn.Caption := '通过程序放上去的'; ... 阅读全文

摘要： 在Com, Dcom, Com+中經常要用到variant, 而在delphi 中的文件操作之類中, 更多的用到Stream, 有時, 需要適當的互換!Variant --> Streamvar ov: OleVariant; ms: TStream; p: Pointer;begin ov := dmMain.ComConnection.AppServer.TimeZone; ms := ... 阅读全文