摘要：program Project2;{$APPTYPE CONSOLE}uses SysUtils;type //定义一个对象事件方法 TCallbackFunc = function (i: Integer): Integer of object; TMyCallBackObject = class private FcallBack: TCallbackFunc; function SetcallBack(const Value: TCallbackFunc): Integer; public function call(param: In... 阅读全文

摘要：program WriteStruct;{$APPTYPE CONSOLE}uses SysUtils;//写入结构体type TCustomer = record ID: string[10]; Code: string[10]; Name: string[10]; end;var Customers: array[1..10] of TCustomer; i: Integer; myText: file of TCustomer; //file of type type必须是固定大小的，不能是对象, String, Variant等 customer:... 阅读全文

摘要：当Session was created or was destroyed 使用HttpServletListener 监听 触发HttpSessionEvent 当Session was added or removed or replacedAttribute 使用HttpSessionAttributeListener 监听 触发HttpSessionBindingEvent 当Session has been Actived 使用HttpSessionActivationListener 监听 触发HttpSessionEvent 阅读全文

摘要：<!--测试学习初始化参数 --> <servlet> <servlet-name>BeerParamTests</servlet-name> <servlet-class>org.ps.demo.TestInitParams</servlet-class> <init-param> <param-name>adminEmaail</param-name> <param-value>444733551@qq.com</param-value> </init- 阅读全文