DELPHI7如何使用一个使用变量调用一个类

源码资源网

DELPHI7如何使用一个使用变量调用一个类
在Delphi 7中，您可以使用变量来调用一个类的方法。下面是一个简单的示例代码，演示了如何使用变量来调用一个类的方法：

1. type
   
2.   TMyClass = class
   
3.     procedure MyMethod;
   
4.   end;
   
5. procedure TMyClass.MyMethod;
   
6. begin
   
7.   ShowMessage('MyMethod 被调用了');
   
8. end;
   
9. var
   
10.   MyClassInstance: TMyClass;
    
11.   MethodPointer: TNotifyEvent;
    
12. begin
    
13.   MyClassInstance := TMyClass.Create;
    
14.   MethodPointer := MyClassInstance.MyMethod;
    
15.    // 使用变量调用类的方法
    
16.   MethodPointer(nil); // 这里传入nil作为参数，因为MyMethod方法是一个无参数的方法
    
17.    MyClassInstance.Free;
    
18. end;

复制代码

在上面的示例中：
- 我们首先定义了一个 `TMyClass` 类，其中包含一个 `MyMethod` 方法。
- 我们创建了一个 `TMyClass` 类的实例 `MyClassInstance` 。
- 使用 `MyClassInstance.MyMethod` 将 `MyMethod` 方法的引用赋给 `MethodPointer` 变量。
- 最后，通过调用 `MethodPointer(nil)` 来使用变量 `MethodPointer` 调用 `TMyClass` 类的方法 `MyMethod` 。
这样，您就可以使用变量来调用一个类的方法。