delphi7 中接口不能直接创建实例,必须借助实现该接口的类来完成对象的生成、调用与释放。
1、 打开 Delphi7 开发平台,在默认项目中新建一个 Unit 文件。

2、 在 Unit2.pas 中定义一个新的接口以及对应的实现类,参考代码如下:

3、 在 Form1 窗体中添加一个 TButton 控件。

4、 双击按钮进入 OnClick 事件处理过程,并编写相关逻辑代码。
5、 将 Unit2 添加到 Unit1 的 uses 子句中,以确保接口及其实现类可被正确识别和使用。

6、 按下 F9 编译运行程序,点击按钮后将显示指定的消息对话框。

7、 修改按钮点击事件代码,改用接口变量方式声明并调用。
8、 接口类型的变量无需手动释放内存,其生命周期由引用计数机制自动管理。

9、 若运行时出现 Unit1.pas(33): Undeclared identifier: 'SetValue' 错误,说明 SetValue 方法并未在接口中声明,仅存在于实现类 TMyClass 内部。即便 my 是由 TMyClass 实例化而来,也不能通过接口引用直接访问该方法;如需调用,必须先进行类型转换(如 as TMyClass)。
10、 删除非法调用语句后重新编译运行,点击按钮即可正常弹出提示框。


















