初始化自定义类

admin

1. type
   
2.   TMyClass = class
   
3.   private
   
4.     FValue: Integer;
   
5.   public
   
6.     constructor Create(InitialValue: Integer);
   
7.     procedure DoSomething;
   
8.   end;
   
9. 
   
10. constructor TMyClass.Create(InitialValue: Integer);
    
11. begin
    
12.   inherited Create; // 如果TMyClass没有继承自其他类，这行可以省略
    
13.   FValue := InitialValue;
    
14. end;
    
15. 
    
16. procedure TMyClass.DoSomething;
    
17. begin
    
18.   // 实现一些功能
    
19.   ShowMessage('The value is ' + IntToStr(FValue));
    
20. end;
    
21. 
    
22. // 使用自定义类
    
23. procedure TForm1.Button1Click(Sender: TObject);
    
24. var
    
25.   MyObj: TMyClass;
    
26. begin
    
27.   MyObj := TMyClass.Create(10); // 初始化类的实例
    
28.   try
    
29.     MyObj.DoSomething;
    
30.   finally
    
31.     MyObj.Free; // 释放资源
    
32.   end;
    
33. end;

复制代码