使用常规程序处理类事件(Delphi)

发布时间：2020-12-15 09:10:30 所属栏目：大数据来源：网络整理

导读：我在一个简单的过程(不是类中的方法)内以编程方式创建数据库连接对象. mydb:= TUniConnection.Create(nil);mydb.Database:= knowledge_db_name;mydb.LoginPrompt:= False;mydb.Username:= aaa;mydb.Password:= bbb; 现在我需要处理错误和与其他程序断开连接.

我在一个简单的过程(不是类中的方法)内以编程方式创建数据库连接对象.

mydb:= TUniConnection.Create(nil);
mydb.Database:= knowledge_db_name;
mydb.LoginPrompt:= False;
mydb.Username:= aaa;
mydb.Password:= bbb;

现在我需要处理错误和与其他程序断开连接.当我尝试做的时候：

mydb.OnError:= OnConnectionError;
mydb.OnConnectionLost:= OnConnectionLost;

编译告诉我

[DCC Error] test.pas(373): E2009 Incompatible types: 'method pointer and regular procedure'

我该如何解决这个问题？
以下是事件过程的定义：

procedure OnConnectionError(Sender: TObject; E: EDAError; var Fail: Boolean);
procedure OnConnectionLost(Sender: TObject; Component: TComponent; ConnLostCause: TConnLostCause; var RetryMode: TRetryMode);

解决方法

如果您没有合适的类来放置事件处理程序,则可以定义一个虚拟类并生成事件处理程序类过程.然后你不必创建类的实例,但可以分配mydb.OnError：= TMyDummyEventHandlerClass.OnConnectionError;.

这是一个例子 – 我使用不同的事件,因为我没有TUniConnection,但想确保一切都编译.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!