dropme——事在人为

大家都认为，C语言之所以强大，以及其自由性，很大部分体现在其灵活的指针运用上。因此，说指针是C语言的灵魂，一点都不为过。同时，这种说法也让很多人产生误解，似乎只有C语言的指针才能算指针。Basic不支持指针，在此不论。其实，Pascal语言本身也是支持指针的。从最初的Pascal发展至今的 Object Pascal，可以说在指针运用上，丝毫不会逊色于C语言的指针。　　以下内容分为八个部分，分

DLL笔记  下面以DLL简单程序的测试，来展示DLL的用法和各种注意点：  一个DLL程序：  library Project2;  uses    SysUtils,Classes;  {$R *.res}  function Min(X, Y: Integer): Integer; stdcall;  begin   

明天就是五一节了，辛苦了好几个月，借此机会应该尽情放松一番。可是想到Blog好久没有写文章，似乎缺些什么似的。这几个月来在项目中又增长了许多经验，学到许多实际应用的知识。不如把一些比较有用的记录下来，供朋友们参考可好。我想到Delphi的事件，那可真是个方便的东西，初学者在窗体上拉几个控件，并指定它们的事件，写几句代码，立刻就得到他们想要的效果。可是事件在方便的同时也有一个不足之处，就是只能指

完成一个功能时用到观察者模式，将业务类的变化通知给外部的窗体，同时也通知给另一个类，假设为TTest，这个类继承自TInterfaceObject。窗体和TTest都实现了一个接口，因此业务类通过接口可以将变化通知给外部。感觉这个类层次应用得很好，但问题出现了，业务类用IInterfaceList管理这些接口，程序关闭时，IInterfaceList将所有的接口置为Nil，按以前的理解，实现接

<br />主窗体上放一个ApplicationEvent控件，OnMessage事件中这么写：<br /> <br />procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); const StdKeys = [VK_TAB, VK_RETURN, VK_BACK]; { standard keys } ExtKeys = [VK_DELETE, VK_LEFT, VK_RIGH

<br />var Form1: TForm1; glpDisp: IDispatch = nil; implementation {$R *.dfm} procedure TForm1.EmbeddedWB1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin if (glpDisp <> nil) and (glpDisp = pDisp) then

<br />uses TypInfo; {以 TAlign 为例} procedure TForm1.Button1Click(Sender: TObject); var enum: TAlign; i: Integer; str: string; begin Memo1.Clear; for enum := Low(TAlign) to High(TAlign) do begin i := ord(enum); //Integer(enum)