delphi 在自定义unit中建立类实例

admin

1. unit MyUnit;
   
2. 
   
3. interface
   
4. 
   
5. type
   
6.   TMyClass = class
   
7.   private
   
8.     FValue: Integer;
   
9.   public
   
10.     constructor Create(Value: Integer);
    
11.     procedure DoSomething;
    
12.   end;
    
13. 
    
14. implementation
    
15. 
    
16. { TMyClass }
    
17. 
    
18. constructor TMyClass.Create(Value: Integer);
    
19. begin
    
20.   FValue := Value;
    
21. end;
    
22. 
    
23. procedure TMyClass.DoSomething;
    
24. begin
    
25.   // 实现你的方法
    
26.   ShowMessage('The value is ' + IntToStr(FValue));
    
27. end;
    
28. 
    
29. end.

复制代码

然后，在另一个窗体中你可以创建这个单元的实例：

1. unit MainUnit;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6.   MyUnit;
   
7. 
   
8. implementation
   
9. 
   
10. var
    
11.   MyClassInstance: TMyClass;
    
12. 
    
13. begin
    
14.   MyClassInstance := TMyClass.Create(10); // 使用值10创建TMyClass的实例
    
15.   MyClassInstance.DoSomething; // 调用实例方法
    
16. 
    
17.   // 当不再需要实例时，应当释放它
    
18.   MyClassInstance.Free;
    
19. end;

复制代码