delphi中间件

摘要： Sender,Self,Owner，parent -----------------------------------------------------Sender--意义：指本对象。Sender在什么对象相关代码里，那么Sender就是什么。Self--意义：指本类，也就是Self被引用的类。比如若在类TMyClass内引用了Self，那么Self=TMyClass.Owner--意义：哪个对象释放我的内存啊？如：Pan:=TPanel.Create(Self);其中Create的参数是：AOwner:TComponent。Owner释放Pan的内存。因为窗口释放Pan的内存，但窗口类的 阅读全文

摘要： 代码复用规则1、 对接口编程2、 优先使用对象组合，而不是类继承3、 将可变的部分和不可变的部分分离 抽象基类中定义好不可变的部分，而由其子类去具体实现可变的部分，不可变的部分不需要重复定义4、 减少方法的长度三十秒原则：如果另一个程序员无法在三十秒之内了解你的函数做了什么（What），如何做(How)以及为什么要这样做(Why)，那就说明你的代码是难以维护的，必须得到提高；一屏原则：如果一个函数的代码长度超过一个屏幕，那么或许这个函数太长了，应该拆分成更小的子函数；一行代码尽量简短，并且保证一行代码只做一件事,那种看似技巧性的冗长代码只会增加代码维护的难度。5、 减少参数个数6、 类层次的最 阅读全文

摘要： 获取当前系统版本号 unit WinVerUtils;{#===============================================================================# Name: WinVerUtils.pas# Author: Aleksander Oven# Created: 2007-02-25# Last Change: 2007-02-25# Version: 1.0# Description: All about the version of the Windows OS. Refere... 阅读全文

摘要： 防止程序重复执行的单元 //工程引用此单元就能防止同时出现多个实例unit MultInst;interfaceuses Windows ,Messages, SysUtils, Classes, Forms;implementationconst STR_UNIQUE = '{2BE6D96E-827F-4BF9-B33E-8740412CDE96}'; MI_ACTIVEAPP = 1; {激活应用程序} MI_GETHANDLE = 2; {取得句柄}var iMessageID : Integer; OldWProc : TFNWndProc; MutHa... 阅读全文

摘要： uses TypInfo; {获取类的信息, 需要这个单元}//获取对象的 RTTI 属性与事件的函数function GetPropertyAndEventList(obj: TObject; pList,eList: TStringList): Boolean;var ClassTypeInfo: PTypeInfo; {类的信息结构指针} ClassDataInfo: PTypeData; {类的数据结构指针} propertyList : PPropList; {TPropInfo 是属性的数据结构; PPropList 是其指针; TPropList 是属性结构指针的列表数组; PP 阅读全文

摘要： 有序类型的大小及最大、最小值 procedure TForm1.Button1Click(Sender: TObject);var b: Byte; w: Word; i: Integer; c: Cardinal;begin ShowMessage(IntToStr(SizeOf(b))); //Byte大小：1 ShowMessage(IntToStr(High(b))); //Byte最大值: 255 ShowMessage(IntToStr(Low(b))); //Byte最小值: 0 ShowMessage(IntToStr(SizeOf(w))); ... 阅读全文

摘要： 调试脚本Scripter工作室包含组件和方法允许在程序运行时间调试脚本。主要有2种方法调试脚本：1、使用脚本组件方法和属性；2、使用调试组件。使用方法和属性能留下更多的自由给程序员，并且你可以使用他们建立一个属于你自己的调试环境。使用组件可以进行更高级别的调试，在大多数情况下你只需要拖动一个组件和在开始调试前调动一个方法就行了。使用调试的方法和属性脚本组件有几个允许调试脚本的方法和属性，在Delphi代码内你可以按照自己的需要使用他们，他们的列表在下面：property Running: boolean;读/写属性，当正在执行脚本的时候，Running是True。注意脚本可以暂停，但它仍然在运 阅读全文

摘要： 开始脚本，只需要把脚本赋值给TatCustomScripter组件的SourceCode属性，并调用Execute方法。下面是一个简单的例子：Scripter.SourceCode.Text:='ShowMessage(''Hello world!'');';Scripter.Execute; 现在 阅读全文

摘要： TatPascalScripter组件执行脚本的Pascal语法。Pascal语法支持：•begin .. end•procedure and function•if .. then .. else•for .. to .. do .. step•while .. do•repeat . 阅读全文

摘要： Scripter工作室是把脚本能力加到你的应用程序的一套的Delphi/C++Builder部件。Scripter工作室能使你的最终用户使用可视化工具书写和执行自己的脚本。包含的组件有： TatPascalScripter － 非视觉组件，执行Pascal语法的脚本。 TatBasicScripte 阅读全文