Delphi拾遗（8） 类事件
类的事件
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TMyEvent = procedure of object; //不带参数的过程
TMyEventExt = procedure(AName: string) of object; //带参数的过程
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TMyBase = class
private
FName : string;
FAge : Integer;
FOnEvent: TMyEvent; //定义 TMyEvent 类型事件
FOnEventExt: TMyEventExt;
procedure SetAge(const AValue: Integer);
public
//创建类时进行相应的一些初始化工作
constructor Create;
procedure SetEvent1;
procedure SetEvent2;
procedure SetEventExt1(ATmp: string);
//Name属性 不可更改
property Name: string read FName write FName;
//Age属性 可以更改
property Age: Integer read FAge write SetAge;
//关联事件 发布 TMyEvent 类型事件
property OnEvent: TMyEvent read FOnEvent write FOnEvent;
property OnEventExt: TMyEventExt read FOnEventExt write FOnEventExt;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TMyBase }
constructor TMyBase.Create;
begin
FName := 'hehf';
FAge := 99; //不赋值时默认为0
FOnEvent := SetEvent1;
FOnEventExt := SetEventExt1; //这时不能带参数
end;
procedure TMyBase.SetAge(const AValue: Integer);
begin
if (AValue > 0) and (AValue < 130) then
FAge := AValue
else
FAge := -1;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
TmpMy: TMyBase;
begin
TmpMy := TMyBase.Create;
ShowMessage(IntToStr(TmpMy.Age)); // 99
TmpMy.Age := 100;
ShowMessage(IntToStr(TmpMy.Age)); // 100
TmpMy.OnEvent; //触发关联事件
TmpMy.Free;
end;
procedure TMyBase.SetEvent1;
begin
ShowMessage('Event 1'
相关文档：
Delphi 是新一代可视化开发工具，它具有功能强大、简便易用和代码执行速度快等特点，是全球公认的快速应用开发工具技术的先驱者，它越来越在构架企业信息系统方面发挥着重要作用。由于Delphi 这些显著特点，许多程序员选择Delphi作为开发工具编制各种应用程序。但是，令人惋惜的是Delphi没有自带串口 ......
1、 系统功能
1）、数据压缩
使用DELPHI提供的两个流类（TCompressionStream和TDecompressionStream）来完成数据的压缩和解压缩。
2）、数据加密压缩
通过Delphi编程中“流”的应用实现数据加密，主要采用Tstream的两个派生类Tfilestream、Tmemorystream 来完成的；其中数据压缩部分采用1）的实现� ......
TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。
常规的用法大家都知道，现在来讨论它的一些高级的用法。
先把要讨论的几个属性列出来：
1、CommaText
2、Delimiter & DelimitedText
3、Names & Values & ValuefromIndex
先看第一个：CommaText。怎么用呢？用代码说话：
const
......
1、首先将delphi中Controls单元提取
2、修改Controls单元中如下部分：
procedure TWinControl.CreateParams(var Params: TCreateParams);
begin
FillChar(Params, SizeOf(Params), 0);
with Params do
begin
Caption := FText;
Style := WS_CHILD or WS_CLIPSIBLINGS;
&nbs ......
delphi + java 的分布式应用思考
用delphi做界面层 java业务逻辑层 这样看上去很美吧？
具体的实现
java 做业务逻辑层 应该有多种选择 企业级的有EJB3, 轻量级的有spring
目前在学习ejb3，感觉用来做业务逻辑层真的很不错。spring还没有了解
界面层用delphi，RAD应该是delphi的优势。
关键的问题的如果把 ......
